VB.Net Tutorial/Windows/DLL

Create DLL library

<source lang="vbnet">" Compile from command line with: " VBC /t:library Dog.vb Option Strict On Public Class Dog

  Private Name As String
  Public Sub New(name As String)
  End Sub

End Class</source>

Use WIN32 Function directly

<source lang="vbnet">Option Strict On Public Module Tester

  Public Declare Unicode Function MessageBox Lib "User32.dll" Alias "MessageBoxW" (ByVal hWnd As IntPtr, ByVal lpText As String, _
         byVal lpCaption As String, ByVal uType As UShort) As Short
  Private Declare Unicode Function GetSystemDirectory Lib "kernel32.dll" Alias "GetSystemDirectoryW" _
          (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
  Private Const MB_OK As Integer = &H0&
  Private Const MAX_LEN As Integer = 256
  Public Sub Main()
     Dim caption As String = "System Directory"
     Dim message As String
     Dim buffer As String = Space(MAX_LEN)
     Dim retChars As Integer
     retChars = GetSystemDirectory(buffer, Len(buffer))
     message = Left(buffer, retChars)
     MessageBox(Nothing, message, caption, MB_OK)
  End Sub

End Module</source>