һregsvr32 QRMAKER.OCX
VB QRMAKER.OCX
һQRMAKER.OCX

With QRmaker1
    .ModelNo = 2
    .CellPitch = 5
    .CellUnit = 203
    .QuietZone = 0
    .InputData = "Ҫӡ"
    .Refresh
End With

