ToggleButton

[bonaprogram]

Vorrei sapere come si usa il ToggleButton in particolare come potrei fare a dire che quando è premuto succede una cosa se no ne succede un'altra.
GRAZIE

[teolo]

prova così:

Option Explicit

Dim premuto As Boolean

Private Sub Command1_Click()
    If Not (premuto) Then
        Command1.Caption = "Premuto"
        premuto = True
    Else
        Command1.Caption = "Non premuto"
        premuto = False
    End If
    
End Sub

Private Sub Form_Load()
    premuto = False
    Command1.Caption = "Non premuto"
End Sub

ciao

Teolo

[bonaprogram]

MA IO DICO CON IL ToggleButton