كود لتغيير حجم الخط على الزر عند مرور المؤشر عليه

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Command1.FontBold = False Then
Command1.FontBold = True
Command1.FontSize = 12
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Command1.FontBold = True Then
Command1.FontBold = False
Command1.FontSize = 10
End If
End Sub

مع تحيات منتديات نوردين المتطورة

» اشارات مرور اسلاميه مع الصور
» أثار الرسول صلى الله عليه و سلم
» صيام الست من شوال لمن عليه أيام من رمضان