New instance of a form

See more:

VB6

problem is when i call this sub its create every time a new new instencse of form
but i want if frmcompanylist is opend then set focus to it and if
not opend then open a new instencse
and also every time i want to
set frmcompanylist =nothing

exp code:

private frmcompanylist as companylistform   
Public Sub Show(ByVal FormName As String)
    Select Case FormName
         Case 
            If frmcompanylist Is Nothing Then
                Set frmcompanylist = New CompanyListForm
            End If
            frmcompanylist.Show 1
            Set frmcompanylist = Nothing
   end select
end sub