Private Sub Command1_Click()
If Command1.Tag = "" Then
Command1.Tag = "active"
Command1.Caption = "An"
Else
Command1.Tag = ""
Command1.Caption = "Aus"
End If
End Sub
 
Private Sub Text1_Change()
If Command1.Tag = "" Then Exit Sub
Select Case Text1.Text
 
Case "1":
Label1.Caption = "1"
 
Case "10":
Label1.Caption = "10"
 
End Select
End Sub