Private Sub Form_Load()
  With Label1
    .Font.Name = "WingDings"
    .Font.Size = 80
    .Font.Bold = True
    .ForeColor = vbRed
    .Width = 1000
    .Caption = String$(10, "n")
    .AutoSize = True
  End With
 
  With Label2
    .Font.Name = "WingDings"
    .Font.Size = 80
    .Font.Bold = True
    .ForeColor = vbGreen
    .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
 
Private Sub Form_KeyPress1(KeyAscii As Integer)
  ' Tasten abfragen
  If Chr(KeyAscii) = "k" Then
    ' k-Taste
    With Label2
      If Len(.Caption) > 0 Then
        .Caption = Left$(.Caption, Len(.Caption) - 1)
      End If
    End With
 
  ElseIf Chr$(KeyAscii) = "l" Then
    ' l-Taste
    With Label2
      If Len(.Caption) < 10 Then
        .Caption = .Caption & "n"
      End If
    End With
  End If
End Sub