Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click 
Dim Reg As Microsoft.Win32.RegistryKey
 
Reg = Microsoft.Win32.Registry.CurrentUser
 
Reg.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run",True)
 
Reg.SetValue("MB",Application.ExecutablePath)'写入注册表
 
Reg.Close()
 
End Sub
 
 
Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button2.Click
 
Dim Reg As Microsoft.Win32.RegistryKey
 
Reg = Microsoft.Win32.Registry.CurrentUser
 
Reg.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run",True)
 
Reg.Deletue("MB")'删除注册表键
 
Reg.Close()
 
End Sub