code visual basic for Change the shape of the button when passing it

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

Interpreter and redeployed from vb4arb

Please Give Us Your 1 Minute In Sharing This Post!

SOCIALIZE IT →

Tweet

FOLLOW US →

SHARE IT →

Powered By: BloggerYard.Com