VB.Net Tutorial/Windows/DllImport

DllImport

Option Strict On
Imports System.Runtime.InteropServices
Imports System.Text
Public Module Tester
   <DllImport("User32.dll", EntryPoint:="MessageBox", ExactSpelling:=False, CharSet:=CharSet.Unicode)> _
   Private Function MessageBox (ByVal hWnd As IntPtr, ByVal lpText As String, byVal lpCaption As String, ByVal uType As UShort) As Short
   End Function
   <DllImport("Kernel32.dll", EntryPoint:="GetSystemDirectory", ExactSpelling:=False, CharSet:=CharSet.Unicode)> _
   Private Function GetSystemDirectory(ByVal lpBuffer As StringBuilder, _
           ByVal nSize As Integer) As Integer
   End Function
   Const MB_OK As Integer = &H0
   Const MAX_PATH As Integer = 260
   Public Sub Main()
      Dim caption As String = "System Directory"
      Dim buffer As New StringBuilder(MAX_PATH)
      GetSystemDirectory(buffer, MAX_PATH)
      MessageBox(Nothing, buffer.ToString(), caption, MB_OK)
   End Sub
End Module