Где-то пол часа писал самой прогу.Всё хорошо,всё работает,но...
Блокируется всё остальное.Как я понял-заставить не блокировать-основная функция работы.
Ох,как я не извращался,Куда только не пихал это сраное
Public Sub UFO()
Load UserForm1
UserForm1.Show 0
End Sub

Не работает и всё тут.Я даже кнопку создал,при нажатии на которую эта функция вызывается.Ни-фи-га!
Ненавижу VB!