Public Class Namenstag2
 
    Private Sub vorname_KeyDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles vorname.KeyDown
 
        If vorname.Text = "" Then
            lbl_Namenstag.Text = ""
            lbl_Namenstag2.Text = ""
            Bedeutung.Text = "Bitte geben Sie einen Namen ein:"
 
 
            'Durch Drücken der Taste "Enter" werden diese Funktionen ausgeführt
            If e.KeyCode = Keys.Enter Then
 
                'Markieren der Textbox "vorname" nach Drücken von "Berechnen"
                vorname.Focus()
                vorname.SelectAll()
 
 
 
 
 
                Select Case vorname.Text
                    Case "Vasilis", "vasilis"
                        lbl_Namenstag.Text = "01. Januar"
                        lbl_Namenstag2.Text = ""
 
 Case Else
                        lbl_Namenstag.Text = "Leider gibt es für Ihren Namen" & _
                        vbCr & "keinen Namenstag!"
                        lbl_Namenstag2.Text = ""
                End Select
 
                Select Case vorname.Text
 
                    Case "Vasilis", "vasilis"
                        Bedeutung.Text = "Vasilis ist auf Platz 8167 der" & _
                          "beliebtesten männlichen Vornamen von" & _
                        vbCr & "insgesamt 27792 männlichen Namen."
 
                    Case Else
                        Bedeutung.Text = ""
                End Select
 
            End If
 
        End If
 
    End Sub