رز command

خد عندك يا ريس، كود بدائي ، مش مبدئي، عشان مفيش وقت للستخدام تقنيات أكثر مناسبة

Option Explicit



'Add a CommandButton to the form

'Set that CommandButton's Style property to 1-Graphical



Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Command1.BackColor <> &HC0FFFF Then Command1.BackColor = &HC0FFFF

End Sub



Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Command1.BackColor <> vbButtonFace Then Command1.BackColor = vbButtonFace

End Sub

و لا مؤاخذة عشان مش قادر اطول فى الشرح

يا رب يشتغل و يكون دة قصدك