Page 1 of 1

Easy and Simple Image Rollovers

Posted: Sun Apr 11, 2010 6:04 am
by mikethedj4
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