محدود کردن عدد صفر به عنوان اولین عدد تایپ شده در تکست باکس

[mostafa-fathi]

با عرض سلام خدمت همه دوستان عزیز و گرامی
سوالم از شما سروران گرامی :
به چه طریقی و یا با چه کدی میتوان در تکست باکس عدد صفر را طوری محدود کرد که ( فقط ) به عنوان اولین عدد در تکست باکس نوشته نشود مانند : 09
با تشکر و سپاس .

[vbhamed]

سلام

Private Sub Text1_Change()

Dim s$

s = Text1
While Left$(s, 1) = "0"
s = Mid$(s, 2)
Wend
If s <> Text1 Then Text1 = s

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 48 Then
If Text1.SelStart = 0 Then KeyAscii = 0
End If

End Sub