Imports Microsoft.Win32

Public Class Form1
Dim Str As String = My.Computer.Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Services\USBSTOR").ToString


Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
My.Computer.Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Services\USBSTOR")
Label1.Text = My.Computer.Registry.GetValue(Str, "Start", "Error cannot load this")
If Label1.Text = 3 Then

End If
End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Registry.SetValue(Str, "Start", 3, RegistryValueKind.DWord)
My.Computer.Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Services\USBSTOR")
Label1.Text = My.Computer.Registry.GetValue(Str, "Start", "Error cannot load this")
End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Registry.SetValue(Str, "Start", 4, RegistryValueKind.DWord)
My.Computer.Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Services\USBSTOR")
Label1.Text = My.Computer.Registry.GetValue(Str, "Start", "Error cannot load this")
End Sub
End Class