Загрузка формы по ее имени?

Sub LoadMyFormByName(strFormName as String)
 Load strFormName 'Так не получится загрузить форму. 
End Sub

Select Case FormName
Case 'frmName1'
frmName1.Show
Case 'frmName2'
frmName2.Show
Case Else
end select

Select Case trim(Ucase(strFormName))
  Case 'Form1'
    Load Form1
    ...
  Case 'Form2'
    Load Form2
    ...
  и так далее
End Select

Public Funciton LoadForm() as Form ' Ну или Object не важно 
  Set LoadForm=New frmForm1
end Function

Sub LoadMyFormByName(strClassName as String)
  dim cls as Object
  dim frm as Form 
  'Load strFormName 'Так не получится загрузить форму. 
  'Конечно не получится
  set cls =CreateObject('Имя проекта, где формы лежат' & '.' & strClassName)
  set frm=cls.LoadForm
  set cls=Nothing 
  'Теперь в переменной frm НЕзагруженная форма
  Load frm
  'Теперь загруженная !!!
  'Работаем дальше с формой как обычно, только вместо Form1 пишем frm
  Когда форма становится ненужна, то НЕОБХОДИМО написать
  if not frm is nothing then
    Unload frm
    set frm=nothing
  end if
  'Иначе ВОЗМОЖНО(но не обязательно) память будет забиватся всяким хламом
End Sub

Select Case strFormName
 Case 'Form1'
   Load Form1
 Case 'Form2'
   Load Form2
 '...
 Case 'FormN'
   Load FormN
End Select