Make your own free website on Tripod.com

Draw arc

'Add a module to your project (In the menu choose Project -> Add Module, Then click Open)
'Add 1 CommandButton (named Command1) to your form.
'TroubleShooting: if an arc isn't appear on your form, its because:
'1)The arc is outside your form's boundaries. Solution: maximize your
'form and press the button again.
'2)The arc painted under the button. Solution: move your button.
'Insert this code to the module :

Declare Function Arc Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, _
ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As _
Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long

'Insert this code to your form:

Private Sub Command1_Click()
'To draw A different Arc, change the numbers below
Arc Me.hdc, 100, 100, 150, 160, 100, 250, 250, 50
End Sub

Go Back