... Rectangle(ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) ' Draw a rectangle Line (X1, Y1)-(X2, Y1) Line -(X2, Y2) Line -(X1, Y2) Line -(X1, Y1) End ... Next T HC VISUAL BASIC 6.0 - PHN 3 19 http://ebooks.vdcmedia.com X1 = 4200: Y1 = 10 00 X2 = 6200: Y2 = 2000 ' Draw a roundcorner rectangle RoundCornerRectangle X1, Y1, X2, Y2 ... ' Make sure that X1 is less than X2 ' Swap values of X1, X2 if X1 > X2 If X2 < X1 Then Temp = X1 X1 = X2 X2 = Temp End If ' Make sure that Y1 is less than Y2 ...