编写随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

转载于:https://www.cnblogs.com/Contlu/archive/2005/01/06/87597.html