Private Sub Form_Load()
    On Error GoTo Form_Load_Error

    Set owRZ = New cResize
    Set owEV = New cEvents
    
    owRZ.Init Me
    InitForm Me

    On Error GoTo 0
    Exit Sub

Form_Load_Error:
    If Not ErrorLog(Err.Number, Err.Description, "Form_Load", "Form fArticoli") Then End
    Resume Next
End Sub