Source code

Dim Formulario(5) As Form
Dim NFormularios As Integer

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