Function CreateObject(ByVal Idx As Integer) As Object
Dim obj As Object
Dim casm As System.Reflection.Assembly = _
  System.Reflection.Assembly.GetExecutingAssembly
obj = CType(casm.CreateInstance("WindowsApplication1.Object" & Idx), _
AxPdfLib.AxPdf)
return obj
End Function

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
Dim MyNewObj As Object = CreateObject(2)
End Sub