AutoCAD и VB6

[Евгений Уральский]

Здравствуйте! Мучаю VB6, пытаясь довести до ума работу с AutoCadом. Помогите пожалуйста назначить задачи кнопкам на приближение, отдаление, сохранение и закрытие чертежа в AutoCad
З.Ы: Последнее действие вместо закрытия окна AutoCad хамски закрывает панель VB6

'*******Процедура открытия чертежа************
Private Sub Command1_Click()
Label1.Visible = True
Set acd = CreateObject("autocad.application") 'запускаем AutoCAD
Set dr = acd.Documents
dr.Open ("C:\AutoCAD_23\Stanok.dwg") 'открываем чертеж
acd.Visible = True
Form1.Caption = "Станок" 'переименовываем главную форму
Form1.Show
Form1.Height = 10855 'устанавливаем высоту главной формы
Frame1.Visible = True 'делаем видимой панель параметров
Command1.Enabled = False
End Sub

'*******Приблизить*************
Private Sub Command22_Click()

End Sub
'*******Отдалить*************
Private Sub Command23_Click()

End Sub

'*******Сохранить чертеж*************
Private Sub Command24_Click()

End Sub

'*******Закрыть программу*************
Private Sub Command25_Click()
Rem acd.Close 'зарываем чертеж
Rem acd.quit
End Sub