Knap med to funktioner

Du skal vist i >= C+

du finder en Troggle button i kontrolelementer, også kaldet ind ud knap.

"Forms.ToggleButton.1"
den omdøbte jeg til IndUd

her er testkoden

Private Sub IndUd_Click()
If IndUd = True Then MsgBox " trykket ind"

If IndUd = False Then MsgBox " trykket ud"
End Sub

NB, jeg arbejder i 203 versionen, men mon ikke stadig den er der.