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