Сделал элементарный проект - два объекта - CommandButton и Label. Смысл прост: запускаем проект, нажимаем кнопку и в поле Label пишется путь. Только почему-то ничего не пишется и поле остается пустым.

Почему PrgPath не работает?
Соббсно код для CommandButton:
Private Sub Command1_Click()
Label1.Caption = PrgPath
End Sub