جعل صندوق القرأة inputbox يستقبل ارقام فقط

السلام عليكم 

تفضل يالغالي

    Private Sub TextNO_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextNO.KeyPress
        'كود ادخل ارقام فقط 
        If Char.IsControl(e.KeyChar) = False Then
            If Char.IsDigit(e.KeyChar) Then
            Else
                e.Handled = True
                MsgBox(" يقبل قيمة رقمية فقط ", MsgBoxStyle.Information, "تنبيه")
            End If
        End If
    End Sub

مبرمج أوتار كتب:

 

السلام عليكم 

 

تفضل يالغالي

    Private Sub TextNO_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextNO.KeyPress
        'كود ادخل ارقام فقط 
        If Char.IsControl(e.KeyChar) = False Then
            If Char.IsDigit(e.KeyChar) Then
            Else
                e.Handled = True
                MsgBox(" يقبل قيمة رقمية فقط ", MsgBoxStyle.Information, "تنبيه")
            End If
        End If
    End Sub

مشكور حبيبي 

بس انا قصدي من استخدم الدالة التي تظهر لي صندوق القراءة inputbox

مـــــــــــــــــــــــــــــع الشكر