VB.Net Tutorial/Windows/DllImport

DllImport

<source lang="vbnet">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</source>