23 lines
505 B
Text
23 lines
505 B
Text
|
Public Sub Example15()
|
||
|
|
|
||
|
|
Paint.LineWidth = 40.96
|
||
|
|
Paint.MoveTo(76.8, 84.48)
|
||
|
|
Paint.RelLineTo(51.2, -51.2)
|
||
|
|
Paint.RelLineTo(51.2, 51.2)
|
||
|
|
Paint.LineJoin = Paint.LineJoinMiter 'Default
|
||
|
|
Paint.Stroke
|
||
|
|
|
||
|
|
Paint.MoveTo(76.8, 161.28)
|
||
|
|
Paint.RelLineTo(51.2, -51.2)
|
||
|
|
Paint.RelLineTo(51.2, 51.2)
|
||
|
|
Paint.LineJoin = Paint.LineJoinBevel
|
||
|
|
Paint.Stroke
|
||
|
|
|
||
|
|
Paint.MoveTo(76.8, 238.08)
|
||
|
|
Paint.RelLineTo(51.2, -51.2)
|
||
|
|
Paint.RelLineTo(51.2, 51.2)
|
||
|
|
Paint.LineJoin = Paint.LineJoinRound
|
||
|
|
Paint.Stroke
|
||
|
|
|
||
|
|
End
|