[a.ahmed]

PHP كود :

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

    Dim s As String = TextBox1.Text

    Dim Number As Boolean = False
    Dim Letter As Boolean = False
    For Each c As Char In s.ToCharArray
        If Char.IsNumber(c) Then Number = True
        If Char.IsLetter(c) Then Letter = True
    Next

    If Number And Not Letter Then MsgBox("Number only")
    If Letter And Not Number Then MsgBox("Letter only")
    If Number And Letter Then MsgBox("Number and Letter")

End Sub