关于自定义按钮的效果

Question

有两个问题：
1。我再vb中用image自定义了按钮，但是不知道怎么实现像web中那样mouseover和mouseout显示不同图片的效果；
2。如何获得当前程序在运行时的盘符和路径。--同舟共济，共度难关！
--Anti SARS

Answer 1

这要用到鼠标的移出事件，我原来编写过这类程序的。不过现在没有带在身上。
app.EXEName得到自己的名子
app.path得到自己所有的目录如：
在根目录时：“C：\"而在一般目录时：“C:\windows"
所以要用IIF进行判断：mypath=IIF(rigth(app.path,1)="\",app.path+app.exename+".exe",app.path+"\"+app.exename+".exe")

Answer 2

1.　判断鼠标位置，ｌｏａｄ　不同的图片就行
２．　app.path 就是你要的