Public Function ShowWindow(ByVal sForm As String) As Boolean
  Dim lFDetails As Form 
 
  Select Case sForm
    Case "afrm"
      Set lFDetails = New afrm
    Case "bfrm"
      Set lFDetails = New bfrm
  End Select
  lFDetails.Show
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de