OK, this is jumping ahead, but here is that program. I will have to look to see who gets credit for this.
Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
'***Below code is to AUTO save the drawing every 25 commands,
If ThisDrawing.GetVariable("DWGTITLED") = 1 Then 'don't use on new, unsaved drawings
Select Case CommandName
Case UCase("undo"), UCase("u"), UCase("zoom"), UCase("z"), UCase("pan")
command_count = command_count
Case UCase("QSAVE"), UCase("SAVE")
command_count = 0
Case Else
command_count = command_count + 1
If command_count = 25 Then 'change this to any number you want
ThisDrawing.Save
command_count = 0
End If
End Select
End If
End Sub