23 lines
485 B
Text
23 lines
485 B
Text
|
Public Sub Example8()
|
||
|
|
|
||
|
|
Paint.MoveTo(128.0, 25.6)
|
||
|
|
Paint.LineTo(230.4, 230.4)
|
||
|
|
Paint.LineTo(Paint.X - 102.4, Paint.Y)
|
||
|
|
Paint.CurveTo(51.2, 230.4, 51.2, 128.0, 128.0, 128.0)
|
||
|
|
Paint.ClosePath
|
||
|
|
|
||
|
|
Paint.MoveTo(64.0, 25.6)
|
||
|
|
Paint.RelLineTo(51.2, 51.2)
|
||
|
|
Paint.RelLineTo(-51.2, 51.2)
|
||
|
|
Paint.RelLineTo(-51.2, -51.2)
|
||
|
|
Paint.ClosePath
|
||
|
|
|
||
|
|
Paint.LineWidth = 10
|
||
|
|
Paint.Brush = Paint.Color(Color.Blue)
|
||
|
|
Paint.Fill(True)
|
||
|
|
|
||
|
|
Paint.Brush = Paint.Color(Color.Black)
|
||
|
|
Paint.Stroke
|
||
|
|
|
||
|
|
End
|