اغلاق لوحة المفاتيح

السلام عليكم

في حدث الضغط على الزر أكتب التالي

و إسمحلي أن النصوص البرمجية هنا غير منسقة

 Private Sub AdvancedTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress

        Try
        
            'If BackSpace Or Delete Keys Presses 
            'Do Nothing
            If e.KeyChar = Microsoft.VisualBasic.ChrW(8) Or e.KeyChar = _
            Microsoft.VisualBasic.ChrW(12) Then
                           Exit Sub
            End If

         
                      e.Handled = True

       
                                    If Char.IsDigit(e.KeyChar) = True  Then
                                            Me.Text &= e.KeyChar.ToString()
                        Me.Select(Me.TextLength, 0)
                        Exit Sub
                    End If
    End Sub