引用dll
写代码
Dim obj As new AxDICOMax.AxDICOMXobj.visible = Trueobj.name = "abc"Forms("窗口1").controls("panel1").basecontrol.controls.add(obj)obj.OpenFileName= "e:\test.dcm"