[Ahmad Jawad]

السلام عليكم ورحمة الله وبركاته

كاتب الموضوع :: crush.1993

تغيير شكل الزر عند المرور عليه

كود :

[align=left]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[/align]