Source code

Dim Formulario(5) As MDIChild1	
Dim NFormularios As Integer

Public Sub Form_Load()
   Call Me.ToolBar.createToolBarItem("MDIForm", "MDIForm", "ToolTip", formPng, fmPicturePositionLeftCenter)
End Sub
Public Sub Form_ToolBarClick(ToolBarItem As VB#IToolBarItem)
   If ToolBarItem.ControlID = "MDIForm" Then
  	Formulario(NFormularios) = New MDIChild1
  	Formulario(NFormularios).Width=100
  	Formulario(NFormularios).Height=100
  	Formulario(NFormularios).Show ()
   End If
End Sub

Source code

Public MDIForm1 As New MDIForm1
Public MDIChild1 As New MDIChild1

Public Sub main(ByJava args() As String)
   Dim myArgs() As String
   myArgs = args
   MDIForm1.SetDefaultClose()
   MDIChild1.Close()
   MDIForm1.show()
End Sub