drawing in a picture box

[Megatron]

Try this. You'll need to modify the coordinates to change the direction of the arc.

Private 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()
    
    'Draw the arc
    Arc hdc, 30, 30, 150, 150, 30, 30, 150, 150
    
End Sub