How can you iterate through all open forms in your program?

Anyone know how to do this?

VB Code:

Dim frm As Form
 
For Each frm In Forms
  MsgBox frm.Name
Next frm

thanks much