Public Sub DrawRectangleRectangle(ByVal sender As System.Object, ByVal e As _
    PaintEventArgs)
 
        ' Create pen.
        Dim blackPen As New Pen(Color.Black, 3)
 
        ' Create rectangle.
        Dim rect As New Rectangle(0, 0, 200, 200)
 
        ' Draw rectangle to screen.
        e.Graphics.DrawRectangle(blackPen, rect)
    End Sub

Private Sub PictureBox1_MouseEnter(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles PictureBox1.MouseEnter
 
 DrawRectangleRectangle()
 
End sub

Gruss Caddy