e in vb6 è praticamente uguale

codice:
dim frm as form

for each frm in Forms

next frm