[مالكـ]

PHP كود :

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress 
        
        Dim _allowedCharacters As String = (". و - و _") 
        If _allowedCharacters.Contains(e.KeyChar) AndAlso e.KeyChar <> ChrW(Keys.Back) Then 
            e.Handled = True 
        End If 

    End Sub