<ToolboxBitmap(GetType(PictureBox))> Public Class MyPictureBox
    Inherits System.Windows.Forms.PictureBox
    Private _ImageIn As Image
    Private _ImageOut As Image
    Public Sub New(ByVal MouseInImagePath As String, ByVal MouseOutImagePath As _
      String)
        Me._ImageIn = Image.FromFile(MouseInImagePath)
        Me._ImageOut = Image.FromFile(MouseOutImagePath)
        Me.Image = Me._ImageOut
    End Sub
    Private Sub UserControl1_MouseEnter(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles MyBase.MouseEnter
        Me.Image = Me._ImageIn
    End Sub
    Private Sub UserControl1_MouseLeave(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles MyBase.MouseLeave
        Me.Image = Me._ImageOut
    End Sub
End Class

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Dim mp As MyPictureBox
        Dim root As String = Environment.GetEnvironmentVariable("SYSTEMROOT") + _
          "\"
        mp = New MyPictureBox(root + "winnt256.bmp", root + "Zapotek.bmp")
        mp.Size = New System.Drawing.Size(280, 176)
        Me.Controls.Add(mp)
End Sub