... 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 ' Swap values of Y1, Y2 if Y1 > Y2 If Y2 ... Dim X2 As Integer Dim Y2 As Integer ' Initialise Coordinates of rectangle X1 = 420 0: Y1 = 1000 X2 = 620 0: Y2 = 20 00 ' Draw a roundcorner rectangle RoundCornerRectangle X1, Y1, X2, Y2 ' ... Draw a red line from Location(700, 500) to Location (28 00, 24 000) Line (700, 500)- (28 00, 24 00), vbRed ' Draw a red line from Location (28 00 ,24 00) to Location (1800,900) Line -(1800, 900), vbRed...