DllImport : DllImport « Windows « VB.Net Tutorial

1. VB.Net Tutorial
2. Windows
3. 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