So manch einen stört der Signalton (Beep), wenn man in einer TextBox versucht mehr Zeichen einzugeben, als zulässig. Mit nachfolgendem Code lässt sich der Beepton auf Wunsch abschalten: Private Sub Text1_KeyPress(KeyAscii As Integer) ' Beep / Signalton abschalten If KeyAscii <> 8 Then With Text1 If .SelLength < 1 And .MaxLength > 0 And Len(.Text) = .MaxLength Then KeyAscii = 0 End If End With End If End Sub |