[atefkhalf2004]

ارغب في تعلم  
عمل دالة  تسمح ادخال ارقام فقط في مربع النص
عند كتابة الدالة في الحدث  keypress 
تسمح بكتابة الارقام فقط


Public Function onlynumeric(ByVal e As String)
        If Not IsNumeric(e) Then
            e = ""
            MsgBox("Please enter numbers only.", vbInformation)

        End If
    End Function

لكن معرفتش اكمل
ايضا لا يوجد بها   return
معرفتش  اكتبها و اكتبها وفين