Sì scusa, ho sbagliato l'evento (troppo abituato a .net!!) e in più devi settare anche l'autoredraw altrimenti non vedi nulla...

codice:
Private Declare Function Arc Lib "gdi32" (ByVal hdc As Long, _
                                          ByVal xInizioRettangolo As Long, _
                                          ByVal yInizioRettangolo As Long, _
                                          ByVal xFineRettangolo As Long, _
                                          ByVal yFineRettangolo As Long, _
                                          ByVal xInizioArco As Long, _
                                          ByVal yInizioArco As Long, _
                                          ByVal xFineArco As Long, _
                                          ByVal yFineArco As Long) As Long

Private Sub Form_Load()
    AutoRedraw = True
    Arc Me.hdc, 0, 0, 100, 100, 50, 100, 100, 50
End Sub
Ciao buon anno anche a te!