Private Sub PictureBox_MouseEnter(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles PictureBox1.MouseEnter, PictureBox3.MouseEnter, _
  PictureBox2.MouseEnter
        Dim control As Object = DirectCast(sender, _
        System.Windows.Forms.PictureBox)
        control.Size = New System.Drawing.Size(32, 32)
        'control.Tag = control.Location
        control.Location = New System.Drawing.Point(control.Tag.X - 3, _
          control.Tag.Y - 3)
    End Sub
 
    Private Sub PictureBox1_MouseLeave(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles PictureBox1.MouseLeave, PictureBox3.MouseLeave, _
      PictureBox2.MouseLeave
        Dim control As Object = DirectCast(sender, _
        System.Windows.Forms.PictureBox)
        control.Size = New System.Drawing.Size(24, 24)
        control.Location = New System.Drawing.Point(control.tag.X, _
          control.tag.Y)
        'control.Location = control.Tag
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        Me.PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
        Me.PictureBox1.Tag = Me.PictureBox1.Location
        Me.PictureBox2.SizeMode = PictureBoxSizeMode.StretchImage
        Me.PictureBox2.Tag = Me.PictureBox2.Location
        Me.PictureBox3.SizeMode = PictureBoxSizeMode.StretchImage
        Me.PictureBox3.Tag = Me.PictureBox3.Location
    End Sub