>>4 
こんにちは 
 
MSDNをformか、formsで検索すればわかることなのに甘えすぎ。 
 
Private Sub Command2_Click() 
    Dim i As Long 
     
    For i = 0 To Forms.Count - 1 
        Debug.Print Forms(i).Name 
    Next i 
End Sub