这是一个是否选择钮，“是”是初始状态，点击“是”后会换为“否”；
但软件关闭后，再次重新启动，又回到“是”状态。
请问如何保持关闭软件前的所选状态“否”？
原代码如下：
Private Sub Command2_Click()
WindowsMediaPlayer1.URL = App.Path + "/mp/29.mp3"
WindowsMediaPlayer1.settings.playCount = &H7FFFFFFF
    Command3.Visible = True '换钮
       Command2.Visible = False
End Sub
Private Sub Command3_Click()
WindowsMediaPlayer1.Close
Command3.Visible = False '换钮
       Command2.Visible = True
End Sub

谢谢您的建议，但页面上按钮太多了，能否有更简单的方法？

谢谢您的建议，请问是否一个钮建立一个文件，还是所有钮可以共用一个文件？能用代码说明吗？

如果没有更简单的方法，就选择让电脑处于“睡眠”状态，不关机来保留选择状态。

请问版主，假装关闭程式如何写？
我原图的意思就是软件初次启动，各钮全红；见初始图
经操盘后，为退出状态；见退出图；
关闭后再次启动，要求是退出图状态；见再开起状态图；
您的方法不知代码如何写？

[ 本帖最后由 jrs123 于 2012-10-12 20:08 编辑 ]

这是收集到的一段代码，但如何用到实例中，不知具体代码如何写？
新建一个模块,复制下面的内容
Public inipath As String
Public Declare Function GetPrivateProfileString Lib _
"kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
lpKeyName As Any, ByVal lpDefault As String, ByVal lpretunedstring As String, ByVal nSize As Long, _
ByVal lpFileName As String) As Long
                                                                                '读INI文件
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias _
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal _
lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long                '写INI文件
Public Function GetFromINI(Appname As String, Keyname As String, _
      Filename As String) As String
      Dim RetStr As String
      RetStr = String(255, Chr(0))
      GetFromINI = Left(RetStr, GetPrivateProfileString(Appname, ByVal Keyname, "", RetStr, Len(RetStr), Filename))
End Function
'**************************************************************
'                     读INI文件函数

Public Function WriteINI(inipath As String, Appname As String, Keyname As String, value As String)
Dim stemp As String
stemp = value
Call WritePrivateProfileString(Appname, Keyname, stemp, inipath)
End Function

'**************************************************************
'                     写INI文件函数

'以下为窗体中的内容,不要弄混乱了
On Error GoTo Cwcl
SerName = GetFromINI("RFYSER", "SERVER", App.Path & "\RFYPOS.ini")      '服务器名
UidName = GetFromINI("RFYSER", "UID", App.Path & "\RFYPOS.ini")         '用户名
DataName = GetFromINI("RFYSER", "DATASER", App.Path & "\RFYPOS.ini")            '数据库名
PwdName = GetFromINI("RFYSER", "PWD", App.Path & "\RFYPOS.ini")                 '密码
YongHuBianma = GetFromINI("RFYSER", "PER", App.Path & "\RFYPOS.ini")            '用户编号
Cwcl:
If Err.Number <> 0 Then
MsgBox Err.Description
End
End If
'说明:GetFromINI函数的用法,参照下面INI文件,文件名为RFYPOS.INI

问题未解决，顶一次

谢谢Artless版主的回复。这组代码我试了很久总是没通过，水平太菜了，今打包上来请教，盼相助。
又：本人与360无关，这是几年前觉得360是免费的功能也多才写的。由于很久没来论坛，忘刷新此签字，现已不再提。谢谢提醒！

其实问题的提出理念很简单，就是在窗体上要由一个实体而不是二个实体（按钮或图形及其它），来表现二种状态（如是或否，有或无）；
只是要求关闭软件后要保留这个状态（难度就在这里）；
在网上查了很多内容，也没见类似的问题答案；

找到按钮状态代码，但还有不足之处，请那位高手优化一下：
问题：四个钮状态0-1需要建四个TXT文本文件，能否优化成一个TXT文件？代码如何写？
代码如下：
Private cmdflag As Byte
Private Sub Command1_Click()
If cmdflag Then
Command1.Caption = "否"
cmdflag = 0
Else
Command1.Caption = "是"
cmdflag = 1
End If
Filenum = FreeFile
Open "flag1.dat" For Output As Filenum
Print #Filenum, Format(cmdflag, 0)
Close Filenum
End Sub
Private Sub Command2_Click()
If cmdflag Then
Command2.Caption = "否"
cmdflag = 0
Else
Command2.Caption = "是"
cmdflag = 1
End If
Filenum = FreeFile
Open "flag2.dat" For Output As Filenum
Print #Filenum, Format(cmdflag, 0)
Close Filenum
End Sub
Private Sub Command3_Click()
If cmdflag Then
Command3.Caption = "否"
cmdflag = 0
Else
Command3.Caption = "是"
cmdflag = 1
End If
Filenum = FreeFile
Open "flag3.dat" For Output As Filenum
Print #Filenum, Format(cmdflag, 0)
Close Filenum
End Sub
Private Sub Command4_Click()
If cmdflag Then
Command4.Caption = "否"
cmdflag = 0
Else
Command4.Caption = "是"
cmdflag = 1
End If
Filenum = FreeFile
Open "flag4.dat" For Output As Filenum
Print #Filenum, Format(cmdflag, 0)
Close Filenum
End Sub
Private Sub Form_Load()
'***************其他次Form_Load用代码****************
Filenum = FreeFile
Open "flag1.dat" For Input As Filenum
cmdflag = Input(1, Filenum)
Close Filenum
If cmdflag Then
Command1.Caption = "是"
Else
Command1.Caption = "否"
End If
Filenum = FreeFile
 Open "flag2.dat" For Input As Filenum
 cmdflag = Input(1, Filenum)
 Close Filenum
 If cmdflag Then
 Command2.Caption = "是"
 Else
 Command2.Caption = "否"
End If
Filenum = FreeFile
 Open "flag3.dat" For Input As Filenum
 cmdflag = Input(1, Filenum)
 Close Filenum
 If cmdflag Then
 Command3.Caption = "是"
 Else
 Command3.Caption = "否"
End If
Filenum = FreeFile
 Open "flag4.dat" For Input As Filenum
 cmdflag = Input(1, Filenum)
 Close Filenum
 If cmdflag Then
 Command4.Caption = "是"
 Else
 Command4.Caption = "否"
End If
End Sub