Option Compare Database
Option Explicit

#If VBA7 Then
    Private Declare PtrSafe Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As LongPtr
    Private Declare PtrSafe Function FreeLibrary Lib "kernel32" (ByVal hLibModule As LongPtr) As Long
    Private Declare PtrSafe Function GetProcAddress Lib "kernel32" (ByVal hModule As LongPtr, ByVal lpProcName As String) As LongPtr
    Private Declare PtrSafe Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As LongPtr, ByVal hWnd As LongPtr, ByVal Msg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
#Else
    Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
    Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
    Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
    Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Any, ByVal wParam As Any, ByVal lParam As Any) As Long
#End If

#If Win64 Then
    Private Const LIBRARY_NAME$ = "quricol64.dll"
#Else
    Private Const LIBRARY_NAME$ = "quricol32.dll"
#End If
                
Private Sub cmdIncetrQRCod_Click()
#If VBA7 Then
Dim hLibrary As LongPtr, ProcAddress As LongPtr
Dim retValue As LongPtr
#Else
Dim hLibrary As Long, ProcAddress As Long
Dim retValue As Long
#End If

    If Len(Nz(Me.txtQRCodTexт, vbNullString)) = 0 Then Exit Sub

hLibrary = LoadLibrary(CurrentProject.Path & "\" & LIBRARY_NAME)

ProcAddress = GetProcAddress(hLibrary, "GenerateBMPToClipboardW")
    If ProcAddress = 0 Then
        MsgBox "Oooppss!"
    Else
        retValue = CallWindowProc(ProcAddress, StrPtr(Me.txtQRCodTexт), ByVal 3&, ByVal 5&, ByVal 0&)
        Me.objQRCod.Action = acOLEPaste
    End If
FreeLibrary hLibrary
End Sub

Option Compare Database
Option Explicit

#If VBA7 Then
    Private Declare PtrSafe Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As LongPtr
    Private Declare PtrSafe Function FreeLibrary Lib "kernel32" (ByVal hLibModule As LongPtr) As Long
#Else
    Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
    Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
#End If

#If Win64 Then
    Private Const LIBRARY_NAME$ = "quricol64.dll"
    
    Private Declare PtrSafe Sub GenerateBMPToClipboard _
        Lib "quricol64.dll" _
        Alias "GenerateBMPToClipboardW" ( _
        ByVal Text As String, _
        ByVal Margin As Long, _
        ByVal Size As Long, _
        ByVal Level As Long)
#Else
    Private Const LIBRARY_NAME$ = "quricol32.dll"
    
    Private Declare Sub GenerateBMPToClipboard _
        Lib "quricol32.dll" _
        Alias "GenerateBMPToClipboardW" ( _
        ByVal Text As String, _
        ByVal Margin As Long, _
        ByVal Size As Long, _
        ByVal Level As Long)
#End If
          
Private Sub cmdIncetrQRCod_Click()
#If VBA7 Then
Dim hLibrary As LongPtr
#Else
Dim hLibrary As Long
#End If

    If Len(Nz(Me.txtQRCodTexт, vbNullString)) = 0 Then Me.objQRCod.Value = Null: Exit Sub

hLibrary = LoadLibrary(CurrentProject.Path & "\" & LIBRARY_NAME)
    If hLibrary = 0 Then
        MsgBox "Oooppss!"
    Else
        GenerateBMPToClipboard StrConv(Me.txtQRCodTexт, vbUnicode), 3, 5, 0&
        Me.objQRCod.Action = acOLEPaste
    End If
FreeLibrary hLibrary
End Sub