...
Public viewObj As New ArrayList(1)
...
Sub initViews()
        Dim currViewObj As clsView
        Dim a As System.Reflection.Assembly = _
          System.Reflection.Assembly.LoadWithPartialName("viewDicom1and2")
        Dim ctl As Object = a.CreateInstance("viewDicom1And2")
        ' viewObj.Add(New viewDicom1and2())
        viewObj.Add(a.CreateInstance("viewDicom1And2"))
        For Each currViewObj In viewObj
            currViewObj.MdiParent = Me
            currViewObj.Show()
        Next
End Sub