[محمد كريّم]

كود :

   Private Sub Button1_MouseHover(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.MouseHover
       Button1.BackColor = Color.Red
       Button1.Size = New Size(50, 50)
       'Button1.Font = New Font("arial", 18)
   End Sub

   Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.MouseLeave
       Button1.BackColor = Color.Transparent
       Button1.Size = Button1.PreferredSize
   End Sub