这是一个是否选择钮，“是”是初始状态，点击“是”后会换为“否”；
但软件关闭后，再次重新启动，又回到“是”状态。
请问如何保持关闭软件前的所选状态“否”？
原代码如下：
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

那你要 记录状态到文件或其它位置。

你去研究一下 INI 文件的结构和读写。
或者只是求简单，可以使用 VB 里提供的 注册表 读写函数 。

1、退出时，保存状态。
2、运行时，读取状态，根据读到的数据，设置状态。

写文件可以保持关闭前状态。

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

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

一个钮那家一个文件，如果钮多则文件也多。

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

假装关闭程式不行吗？
就是关闭后将程式缩到系统启动列
下次启动时程式判断程式已启动时
直接将页面在显示出来就好

不过我还是看不懂你要什么

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

[ 本帖最后由 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