How to draw AngleArc

Home » Graphics » How to draw AngleArc

Posted on January 4, 2009

'Graphics - How to draw AngleArc
Option Explicit
 
Private Declare Function AngleArc Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, _
    ByVal y As Long, ByVal dwRadius As Long, ByVal eStartAngle As Single, _
    ByVal eSweepAngle As Single) As Long
 
Private Sub Form_Load()
    AutoRedraw = True
    ScaleMode = vbPixels
    Line (100, 10)-(50, 10)
    AngleArc hdc, 50, 50, 40, 90, 180
End Sub