可以调用 App.Path()返回一个字串，这个字串就是当前程序目录。你运行一下这个代码就行了：
'新建工程，双击窗口，在
private sub form_load()
和
end sub
之间加入下面的代码：
dim Str as string
str="当前目录是 " & app.path
msgbox str
end
-----------
msgbox 都不知道？刚学VB的吧？
Msgbox是一个VB本身提供的函数，用于弹出一个对话框，里面可以显示你要显示的文字
Msgbox "你要显示的文字“
这个是常用的调用方法，还有很多个调用方法，具体看资料
msgbox app.path
你编译成程序执行一下怎么知道了？
弹出消息，消息内容就是程序所在路径
