Private Sub Form_Load()
    AutoRedraw = True
    ScaleMode = vbPixels
    Line (100, 10)-(50, 10)
    AngleArc hdc, 50, 50, 40, 90, 180
End Sub