CodeItBetter Programming Another VB Programming Blog

'Graphics - How to Draw an Arc

Option Explicit
 
'Add a CommandButton to your form.

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
 
Private Sub Command1_Click()
    Arc Me.hdc, 100, 100, 150, 160, 100, 250, 250, 50
End Sub