Option Explicit
 
Dim i As Integer
 
Private Sub Txttext_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc(vbBack) Then
i = i - 1
Else
i = i + 1
End If
If lblAnschläge.Caption <= 0 Then
MsgBox "nix geht mehr"
' hier soll dann hin das der nicht mehr kleiner wird.
' wenn ich dann wieder backspace drücke dann is das programm so dumm...
' ...und zieht trotzdem immer wieder einen ab. soll aber nicht!
' so müsste ich also irgendwie das backspace blockieren. nur wie???
End If
lblAnschläge.Caption = i
End Sub

IHR SEID ALLE SO
mfG
dereric


P.S.: schreibt mir eine eMail