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 ( " You have already set it. Please restart your computer to see the effect. " , " Prompt " ,_
Messageboxbuttons. OK, messageboxicon. Information)
If Checkbox1.checked = True Then
Me. Dispose ( True )
End If
End sub
Private sub btnsave_click () SubBtnsave_click (ByvalSenderAsSystem.Object,ByvalEAsSystem. eventargs )_
HandlesBtnsave. Click
Savesettings ()
End sub
End Class