15-11-12, 09:15 PM
كود :
Private Sub Button1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseClick
Button1.BackgroundImage = My.Resources._1134943_1
Button1.BackgroundImageLayout = ImageLayout.Stretch
End Sub
Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
Button1.BackgroundImage = Nothing
End Sub
Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
Button1.BackgroundImage = My.Resources.Untitled
Button1.BackgroundImageLayout = ImageLayout.Stretch
End Sub