Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim rect As Rectangle = New Rectangle()
 
        Dim point1 As New Point(20, 20)
        Dim point2 As New Point(480, 480)
 
        point1 = PointToScreen(point1)
        point2 = PointToScreen(point2)
 
        If point1.X < point2.X Then
            rect.X = point1.X
            rect.Width = point2.X - point1.X
        Else
            rect.X = point2.X
            rect.Width = point1.X - point2.X
        End If
 
        If point1.Y < point2.Y Then
            rect.Y = point1.Y
            rect.Height = point2.Y - point1.Y
        Else
            rect.Y = point2.Y
            rect.Height = point1.Y - point2.Y
        End If
 
        ControlPaint.DrawReversibleFrame(rect, _
     Color.Yellow, FrameStyle.Thick)
        ControlPaint.DrawReversibleLine(point1, point2, Color.Brown)
    End Sub