[VB6] Controllare i click di un CommandButton

[oregon]

Vuoi dire che se scrivi

Dim cliccato As Boolean

Private Sub cmd1_Click()
    If cliccato Then
        MsgBox ("Meggaggio Prova 1!")
    Else
        MsgBox ("Messaggio Prova 2!")
    End If
End Sub

Private Sub cmd3_Click()
    cliccato = True
End Sub

non funziona come ti aspetti?