Помогите пожалуйста после выполнения процедуры программа не закрывается, если поставить Hide она закрывается один раз, потом не открывается. какой код для закрывания?

Мда.... Может я тебя плохо понял но всёже!
Что-бы закрыть форму есть кнопочка которая находится вверху формы (в верхнем правом углу) (X) )
А если серьёзно то размести на форме кнопку Command1 и напиши такой код:

 
Private Sub Form1_Load()
Command1.Caption = "Закрыть программу"
End Sub

Private Sub Command1_Click()
End
End Sub

И жми <F5>
Вот... Ничего сложного!Когда нажмёш на кнопку "Закрыть программу" программа закроется!

Что-бы зделать это автоматически воспользуйся таймером
Кода незнаю!

неканает это закрывает прогу целиком, мне нужно закрывать или выгружать второстипенную форму автоматически

Для: Serj14
вы на пальца поясните, что такое "автоматически выгружать"

Тогда извени .... незнаю
А насчёт "Автоматически выгрузать и закрывать форму" всёравно вопроса непонял ..... Да и сомневаюсь что кто-то понял ..... Обьясни пожалуйста поподробней может поможем!

Unload Form1

Unload <имя_формы>
Например Unload Me выгрузить саму себя

пиши чтобы загрузить форму load form2 а чтобы выгрузить unload form2.чтобы показать form2.showа чтобы скрыть form2.hide