Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label1.Click
        If Me.ActiveControl.GetType.ToString = "System.Windows.Forms.TextBox" _
        Then
            Me.ActiveControl.Text += "Dein Buchstabe"
        End If
    End Sub