... ByVal X2 As Integer, ByVal Y2 As Integer) Const Delta = 50 ' Draw a rectangle with round corner Line (X1 + Delta, Y1 )-( X2 - Delta, Y1) Line -Step(Delta, Delta) Line -( X2, Y2 - Delta) Line -Step(-Delta, ... -Step(-Delta, Delta) Line -( X1 + Delta, Y2) Line -Step(-Delta, -Delta) Line -( X1, Y1 + Delta) Line -Step(Delta, -Delta) End Sub Ta cũng có thể sơn Shade bên trong hình chữ nhật bằng cách dùng ... 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...