Module AvailableForms
  Friend Const Count =  1 
 
  Private Structure AvailableForm
    Dim sName As String
    Dim winForm As Windows.Forms.Form
  End Structure

  Private List() As AvailableForm

  Friend Sub FillList()
    If Count >  0  Then
      ReDim List(Count -  1 )
      List( 0 ).sName = "frmEditApplicationList"
      List( 0 ).winForm = frmEditApplicationList  ' A тут как можно сделать? 
       '... 
    End If
  End Sub
End Module

dim f as Windows.Forms.Form
f=AvailableForms.GetNewInstance("frmEditApplicationList") 
 ' и, соответственно GetExistInstance 
f.visible=true
f.blablabla