I followed the instruction but could not get the expected result. Instead, it when I clicked on the command botton "Get list of forms", it gave me a warning sign saying The expression On Click you entered as the event property setting produced the following error: a problem occurred while Microsoft Office Access was communicating with the OLE server or Actuve X Control.

Here is the code on page 95.
Private Sub cmdGetForms_Click()

Dim frmForms As Form
'loop

For Each frmForms In Forms
Me.1stForms.AddItem (frmForms.Name)
Next frmFroms
End Sub

Please help to detect the error. Thanks!

Private Sub cmdGetForms_Click()

Dim frmForms As Form
'loop

For Each frmForms In Forms
Me.1stForms.AddItem (frmForms.Name)
Next frmFroms
End Sub

I have highlighted your error. (Although you have prob figured it out by now)
try this:

Private Sub cmdGetForms_Click()

Dim frmForms As Form
'loop

For Each frmForms In Forms
Me.lstForms.AddItem (frmForms.Name)
Next frmFroms
End Sub