I drag in the panel , but no rectangle appear :o
Dim MyPoint As ArrayList = New ArrayList
Dim DragFlag As Boolean = False
Dim StartPt, EndPt, FalseStartPt, FalseEndPt As PointF
Dim myshapetype As ArrayList = New ArrayList
Dim centreX As Integer = 448 / 2
Dim centreY As...