11 lines
223 B
Text
11 lines
223 B
Text
|
Public Sub Example22()
|
||
|
|
|
||
|
|
Paint.Background = Color.RGB(128, 128, 255)
|
||
|
|
Paint.Rectangle(32, 32, 192, 192, 32)
|
||
|
|
Paint.Fill(True)
|
||
|
|
Paint.Background = Color.RGB(128, 0, 0, 128)
|
||
|
|
Paint.LineWidth = 10
|
||
|
|
Paint.Stroke
|
||
|
|
|
||
|
|
End
|