[Athanasios Gardos]

VB6 example on how to add many objects faster:

Option Explicit

Private Sub Command1_Click()
    Dim i As Single
    cAvax1.AutoRedraw = False
    Screen.MousePointer = vbHourglass
    For i = 1 To 1200
        Call cAvax1.Add_Rectangle(0, 0, i * 0.01, i * 0.01)
        If i Mod 100 = 0 Then Label1.Caption = Str$(i): Label1.Refresh
        If i = 1 Then cAvax1.UndoRecorderOn = True
        cAvax1.ContinueUndo = True
    Next i
    cAvax1.UndoRecorderOn = False
    cAvax1.ContinueUndo = False
    cAvax1.AutoRedraw = True
    Screen.MousePointer = vbDefault
End Sub

Private Sub Command2_Click()
    cAvax1.Command = Undo_c
End Sub

Private Sub Command3_Click()
    cAvax1.Command = Redo_c
End Sub

Private Sub Form_Load()
    Command1.Caption = "Add Rectangles"
    Command2.Caption = "Undo"
    Command3.Caption = "Redo"
    Label1.Caption = ""
    Call cAvax1.StartAvax
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Call cAvax1.EndAvax
End Sub

[MUZAK]

I already use autoredraw=false/true. Does the undoRecorder affect the speed as well? Do I need to explicitly turn it off?

In my current application, all of my drawing is done by parameters, so there is no need for an undo.

Thanks!

[Athanasios Gardos]

UndoRecorder is to pack all objects as one into the undo queue.

Autoredraw=false/true is making the addition faster.

If you don't need undo/redo feature use the following declaration:
Call cAvax1.SetAvaxProperty(UndoRedoOn_p, False)
This will make the addition a little bit faster.