17 lines
262 B
Text
17 lines
262 B
Text
|
Public Sub Example13()
|
||
|
|
|
||
|
|
Paint.MoveTo(50, 75)
|
||
|
|
Paint.LineTo(200, 75)
|
||
|
|
|
||
|
|
Paint.MoveTo(50, 125)
|
||
|
|
Paint.LineTo(200, 125)
|
||
|
|
|
||
|
|
Paint.MoveTo(50, 175)
|
||
|
|
Paint.LineTo(200, 175)
|
||
|
|
|
||
|
|
Paint.LineWidth = 30
|
||
|
|
Paint.LineCap = Paint.LineCapRound
|
||
|
|
Paint.Stroke
|
||
|
|
|
||
|
|
End
|