[momani33]

السلام عليكم قمت بكتابة الكود في الاسفل في حدث  Keypress   لمنع كتابة الاحرف وكتابة الارقام فقط  مثل 3.6   وتمت العملية بنجاح ولكني اريد عمل Module   من هذا الكود لاستخدامه في حوالي 30 فورم  دون ان اقوم بكتابة الكود بشكل متكرر  واستدعائة من ال   Module          

If e.KeyChar = "0" Or e.KeyChar = "1" Or e.KeyChar = "2" Or e.KeyChar = "3" Or e.KeyChar = "4" Or e.KeyChar = "5" Or e.KeyChar = "6" Or e.KeyChar = "7" Or e.KeyChar = "8" Or e.KeyChar = "9" Or e.KeyChar = "." Or e.KeyChar = "" Then

            Exit Sub

        Else

            e.KeyChar = ""

        End If

    End Sub