[kader30]

وهناك طريقة أخرى يمكن أن اضيفها :


Private Sub Text1_keypress()
If Val(Text1.Text) < 10 Or Val(Text1.Text) > 40 Then
Text1.Text = ""
End Sub


الدكتور : عبان عبد القادر
من ورقلة ( الجزائر )