box1

Private Sub CommandButton1_Click()
Label1.Caption = TextBox1.Text
End Sub



Private Sub CommandButton2_Click()
TextBox1.Value = False
If TextBox1.Value = True Then
Label1.Caption = "vero"
Else
If TextBox1.Value = False Then
Label1.Caption = "falso"
End If
End If
End Sub


Private Sub CommandButton3_Click()
TextBox1.Value = True
If TextBox1.Value = True Then
Label1.Caption = "vero"
Else
If TextBox1.Value = False Then
Label1.Caption = "falso"
End If
End If
End Sub

Private Sub CommandButton4_Click()
TextBox1.Text = "parola"
End Sub

Private Sub Label1_Click()

End Sub

Private Sub UserForm_Click()

End Sub

ritorna