VB Code:
Dim bHelp As Boolean
Private Sub cmdhelp_Click()
If cmdhelp.Caption = "help" Then
bHelp = True
cmdhelp.Caption = "stop"
Else
bHelp = False
cmdhelp.Caption = "help"
Label1.Caption = ""
End If
End Sub
Private Sub Command1_Click()
MsgBox "this happens when help isn't enabled"
End Sub
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If bHelp Then
MsgBox "Command1 help"
End If
End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If bHelp = True Then
Label1.Caption = "Command1"
End If
End Sub