程序代码：

Option Explicit

Dim str As String
Private Sub Command1_Click()
    str = GetSetting(App.Title, "Otime", "TXT", "")
    If str = "Hclick" Then
        MsgBox "一天只能按一次", vbOKOnly, "Information"
    Else
        Call SaveSetting(App.Title, "Otime", "TXT", "Hclick")
    End If
End Sub