كود الأستخدام لتغير لون الزر عند مرور الفأرة عليه
​

الأدوات :button



كود:

Public Class Form1
Private Sub Button1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseHover
Button1.BackColor = Color.DodgerBlue
End Sub
End Class




الأستخدام:الزر الخفي

الأدوات :3button+1label


Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = "هل أعجبتك الأكواد "
Button1.Text = "لا"
Button3.Text = "لا"
Button2.Text = "نعم"
End Sub

Private Sub Button3_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.MouseHover
Button3.Visible = False
Button1.Visible = True
End Sub
Private Sub Button1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseHover
Button3.Visible = True
Button1.Visible = False
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox("مع تحيات المهندس المدني:محمد إياد شرارة" & Chr(13) & "تمتعوا بالمزيد قريبا للتواصل xxxxxxxxxx", MsgBoxStyle.MsgBoxRight, "وداعا")
End
End Sub
End Class