vb6 字符串调用窗体

Sub FormShow(FormName)
    Dim f As Form
    For Each f In Forms
        If f.Name = FormName Then
            'f.WindowState = 0
            f.Show
            Exit Sub
        End If
    Next
    Set f = Forms.Add(FormName)
    f.Show
End Sub

Private Sub Command1_Click()
    FormShow ("Form2")
End Sub