编写随Windows启动运行的程序

 Dim Reg As Microsoft.Win32.RegistryKey
  Private Sub InitVar()Sub InitVar()
    If btnSave.Visible = True Then

    End If
    Reg = CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
    If Reg.GetValue("MengXianHui") <> "" Then
      CheckBox1.Checked = True
    Else
      CheckBox1.Checked = False
    End If
  End Sub
  Private Sub SaveSettings()Sub SaveSettings()
    If CheckBox1.Checked = True Then
      Reg = CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
      Reg.SetValue("MengXianHui", Application.ExecutablePath)
    Else
      Reg = CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
      Reg.SetValue("MengXianHui", "")
    End If
    InitVar()
    MessageBox.Show("您已经设置了，请重新启动计算机看效果。", "提示", _
      MessageBoxButtons.OK, MessageBoxIcon.Information)
    If CheckBox1.Checked = True Then
      Me.Dispose(True)
    End If
  End Sub

  Private Sub btnSave_Click()Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles btnSave.Click
    SaveSettings()
  End Sub
End Class