augustus123
Grünschnabel
Warum zeigt es mir bei diesem Code bei "If user < 3 Then" an "Typen Unverträglich"?
Private Sub cmd_test_Click()
Dim user As String
user = txt_Username.Text
If user < 3 Then
Label2.ForeColor = &HC000&
Else: Label2.ForeColor = &HFF&
End If
End Sub
Private Sub cmd_test_Click()
Dim user As String
user = txt_Username.Text
If user < 3 Then
Label2.ForeColor = &HC000&
Else: Label2.ForeColor = &HFF&
End If
End Sub