Generate QR-code VB6

Формулировка задачи:

Всем салют. Возможна ли генерация QR-кода на VB6? На C# и VB.NET существуют библиотеки, для работы с QR. Существуют ли таковые на VB6?

Решение задачи: «Generate QR-code VB6»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Enum TErrorCorretion
    QualityLow
    QualityMedium
    QualityStandard
    QualityHigh
End Enum
 
Private Declare Sub GenerateBMP _
                Lib "C:\Temp\quricol32.dll" _
                Alias "GenerateBMPW" ( _
                ByVal FileName As Long, _
                ByVal Text As Long, _
                ByVal Margin As Long, _
                ByVal Size As Long, _
                ByVal Level As TErrorCorretion)
                
Private Sub Form_Load()
    
    GenerateBMP StrPtr("C:\Temp\Example.bmp"), StrPtr("Hello world!"), 3, 5, QualityLow
    
End Sub
                        