关于条码打印的问题

Question

         急,关于条码打印
各位大哥,大虾你们好:
  这几天我在做一个关于条码打印的程序,在网上找了一段代码不知道它的参数是什么,知道的告诉我一声.代码如下
  Sub GetObjImage1(Obj As Object, OwnerForm As PictureBox, Picture1 As PictureBox)
'hDC
Dim hWndDesk As Long
Dim hDCDesk As Long
'区域表达变量
Dim x As Long
Dim y As Long
Dim w As Long
Dim h As Longx = Obj.Left * Screen.TwipsPerPixelX
y = Obj.Top * Screen.TwipsPerPixelY
w = Obj.Width * Screen.TwipsPerPixelX
h = Obj.Height * Screen.TwipsPerPixelY
hDCDesk = OwnerForm.hdc
'取出图像
Call BitBlt(Picture1.hdc, 0, 0, w, h, hDCDesk, x, y, vbSrcCopy)
Call ReleaseDC(hWndDesk, hDCDesk)
End Sub 

Answer 1

不知道类型的可以使用object,any,variant代替