Private Sub Form_Load()
  With Label1
    .Font.Name = "WingDings"
    .Font.Size = 12
    .Font.Bold = True
    .ForeColor = vbRed
    .Width = 1000
    .Caption = String$(10, "n")
    .AutoSize = True
  End With
 
  Me.KeyPreview = True
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
  ' Tasten abfragen
  If Chr(KeyAscii) = "a" Then
    ' A-Taste
    With Label1
      If Len(.Caption) > 0 Then
        .Caption = Left$(.Caption, Len(.Caption) - 1)
      End If
    End With
 
  ElseIf Chr$(KeyAscii) = "s" Then
    ' S-Taste
    With Label1
      If Len(.Caption) < 10 Then
        .Caption = .Caption & "n"
      End If
    End With
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de