Private lcp As PictureBox
 
    Private Sub pb_MouseClick(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles pb1.MouseClick, _
      pb2.MouseClick
        lcp = sender
        Me.Refresh()
    End Sub
 
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        If lcp IsNot Nothing Then
            e.Graphics.DrawRectangle(Pens.Red, lcp.Left - 2, lcp.Top - 2, _
              lcp.Width + 4, lcp.Height + 4)
        End If
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov