使用 DllImport 的 API 调用
DllImport 属性提供了在没有类型库的 DLL 中调用函数第二种方法。DllImport 大致等效于使用 Declare 语句，但它在如何调用函数方面提供了更多的控制。
可以将大多数 Windows API 调用与 DllImport 一起使用，只要该调用引用的是共享（有时称为“静态”）方法就可以。不能使用需要类实例的方法。与 Declare 语句不同，DllImport 调用不能使用 MarshalAs 属性。
使用 DllImport 属性调用 Windows API
通过在“文件”菜单上单击“新建”，然后单击“项目”，打开一个新的“Windows 应用程序”项目。将出现“新建项目”对话框。
从 Visual Basic 项目模板的列表中选择“Windows 应用程序”。将显示新项目。
将一个名为 Button2 的按钮添加到启动窗体上。
双击 Button2 打开窗体的代码视图。
要简化对 DllImport 的访问，请向启动窗口类的代码顶部添加一条 Imports 语句：
Imports System.Runtime.InteropServices
在 End Class 语句之前为窗体声明一个空函数，并将函数命名为 MoveFile。
将 Public 和 Shared 修饰符应用到函数声明中，并基于 Windows API 函数使用的参数来设置 MoveFile 的参数：
Public Shared Function _
MoveFile(ByVal src As String, ByVal dst As String) As Boolean
' Leave the body of the function empty.
End Sub
函数可以有任意一个有效的过程名；DllImport 属性指定 DLL 中的名称。它还为参数和返回值处理互操作封送处理，因此可以选择与 API 使用的数据类型相似的 Visual Studio .NET 数据类型。
将 DllImport 属性应用到空函数中。第一个参数是包含要调用的函数的 DLL 的名称和位置。不必为位于 Windows 系统目录下的文件指定路径。第二个参数是一个命名参数，指定 Windows API 中的函数名称：
<DllImport("KERNEL32.DLL", EntryPoint:="MoveFileW", SetLastError:=True, _
CharSet:=CharSet.Unicode, ExactSpelling:=True, _
CallingConvention:=CallingConvention.StdCall)> _
Public Shared Function _
MoveFile(ByVal src As String, ByVal dst As String) As Boolean
' This function copies a file from the path src to the path dst.
' Leave function empty - DllImport attribute forces calls
' to MoveFile to be forwarded to MoveFileW in KERNEL32.DLL.
End Function
将代码添加到 Button2_Click 事件处理程序以调用函数：
Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Button2.Click
Dim RetVal As Boolean
RetVal = MoveFile("c:/tmp/Test.txt", "c:/Test.txt")
If RetVal = True then
MsgBox("The file was moved successfully.")
else
MsgBox("The file could not be moved.")
End If
End Sub
创建名为 Test.Txt 的文件并将其放在您硬盘的 C:/Tmp 目录下。如果有必要，可创建 Tmp 目录。
按 F5 键启动该应用程序。将显示主窗体。
单击 Button2。若文件可以移动，则显示“The file was moved successfully”。
