Dim cam1,cam2

Set cam1=CreateObject("MaxIm.CCDCamera")
Set cam2=GetObject("","MaxIm.CCDCamera")