




Capital letters
للكتابة في الحقل باستخدام أحرف كبيرة
كود:
Private Sub VinNo_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub
Form Size
لتحديد حجم النموذج ، ارتفاع وعرض
كود:
Private Sub Form_Load() Me.Form.InsideHeight = 6900 Me.Form.InsideWidth = 12700 End Sub