Easy and Simple Image Rollovers
Posted: Sun Apr 11, 2010 6:04 am
Code: Select all
Public Class Form1
Private Sub PictureBox2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox2.Visible = False
End Sub
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
PictureBox1.Visible = False
PictureBox2.Visible = True
End Sub
Private Sub PictureBox2_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox2.MouseLeave
PictureBox1.Visible = True
PictureBox2.Visible = False
End Sub
Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
Me.Close()
End Sub
End Class