Dim sF As String
Dim oF As Object
Dim n As Integer
Dim b As Boolean
 
sF = "Form1"
b = False
For Each oF In VB.Forms
        If oF.Name = sF Then
             b = True 
             Exit For 
        End If
        n = n + 1
Next
If b Then VB.Forms(n).Show