Подключение Dll

Imports System.IO
 
 
Public NotInheritable Class CardsHelper
    Implements IDisposable
 
    Private _syncRoot As Object
    Private _hCardsModule As IntPtr
    Private _bitmapHash As Hashtable
 
 
    Public Sub New()
        _syncRoot = New Object
        _hCardsModule = IntPtr.Zero
        _bitmapHash = New Hashtable
 
        EnsureDllIsLoaded()
    End Sub
 
    Private Declare Auto Function LoadLibrary Lib "kernel32.dll" (ByVal lpModuleName As String) As IntPtr
    Private Declare Auto Function FreeLibrary Lib "kernel32.dll" (ByVal hModule As IntPtr) As Boolean
    Private Declare Auto Function LoadBitmap Lib "user32.dll" (ByVal hInstance As IntPtr, ByVal lpBitmapName As IntPtr) As IntPtr
    Private Declare Auto Function DeleteObject Lib "gdi32.dll" (ByVal hObject As IntPtr) As Boolean
 
    Private Sub EnsureDllIsLoaded()
        If _hCardsModule.Equals(IntPtr.Zero) Then
            SyncLock (_syncRoot)
                If _hCardsModule.Equals(IntPtr.Zero) Then
                    _hCardsModule = LoadLibrary("cards.dll")
                End If
            End SyncLock
        End If
 
        If _hCardsModule.Equals(IntPtr.Zero) Then
            Throw New FileNotFoundException("cards.dll")
        End If
    End Sub
 
    Public Enum Cards
        '' Крести (1 ... 13)
        AceOfClubs = 1
        Clubs2 = 2
        '' Буби (14 ... 26)
        AceOfDiamonds = 14
        Diamonds2 = 15
        '' Червы (27 ... 39)
        AceOfHearts = 27
        Hearts2 = 28
        '' Пики (40 - 52)
        AceOfSpades = 40
        Spades2 = 41
    End Enum
 
    Public Function LoadCardBitmap(ByVal card As Cards) As Bitmap
        EnsureDllIsLoaded()
 
        Dim hBitmap As IntPtr
        If _bitmapHash.Contains(card) Then
            hBitmap = CType(_bitmapHash.Item(card), IntPtr)
        Else
            hBitmap = LoadBitmap(_hCardsModule, New IntPtr(card))
        End If
 
        Return Bitmap.FromHbitmap(hBitmap)
    End Function
 
 
    Protected Overrides Sub Finalize()
        Dispose(False)
    End Sub
 
 
    Public Sub Dispose() Implements System.IDisposable.Dispose
        GC.SuppressFinalize(Me)
        Dispose(True)
    End Sub
 
 
    Private Sub Dispose(ByVal disposing As Boolean)
        If Not _hCardsModule.Equals(IntPtr.Zero) Then
            SyncLock (_syncRoot)
                If Not _hCardsModule.Equals(IntPtr.Zero) Then
                    If disposing Then
                        Dim e As IDictionaryEnumerator = _bitmapHash.GetEnumerator
                        While e.MoveNext
                            Dim hBitmap As IntPtr = CType(e.Key, IntPtr)
                            DeleteObject(hBitmap)
                        End While
                    End If
 
                    FreeLibrary(_hCardsModule)
                    _hCardsModule = IntPtr.Zero
                End If
            End SyncLock
        End If
    End Sub
End Class

Private _cardsHelper As New CardsHelper

Private Sub Form1_Close(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Closed
    _cardsHelper.Dispose()
End Sub

PictureBox1.Image = _cardsHelper.LoadCardBitmap(CardsHelper.Cards.Clubs2)