在许多应用程序中，例如许多编辑软件都有UNDO功能。它给我们带来了方便。那么在VB中能不能实现UNDO功能呢？答案是肯定的。下面介绍一下对于标准的文本框或组合框实现UNDO功能的示例代码。
Declare Function SendMessage Lib"user"(ByVal hWnd As Integer,ByVal wMsg As Integer,wParam As Integer,lparam As Any) As Long
Global Const WM_USER=&h400
Global Const EM_UNDO=WM_USER+23
UndoResult=SendMessage(myControl.hWnd,EM_UNDO,0,0)

利用 App.Path 读取「应用程序所在之目录」 
用以下方法 ：
Dim fullpath As String
If Right(App.Path, 1) = "\" Then ' 若 App.Path 为根目录
fullpath = App.Path + "文件名称"
Else
fullpath = App.Path + "\" + "文件名称"
End If
' fullpath 等于 "文件名称" 的完整路径名称