ivate Sub cmdMDIDemo_Click()
   mfrmMDITest.Show
End Sub

Private Sub cmdUnload_Click()
   mnuFile_Click 11
End Sub

Private Sub cmdVBPopup_Click()
Dim lLeft As Long
Dim lTop As Long

   lLeft = cmdVBPopup.Left
   lTop = cmdVBPopup.Top + cmdVBPopup.Height
   
Dim ctl As Control
Dim lErr As Long
   Set ctl = cmdVBPopup
   On Error Resume Next
   Do
      Set ctl = ctl.Container
      lErr = Err.Number
      If (lErr &lt;&gt; 0) Then
         lLeft = lLeft + ctl.Left
         lTop = lTop + ctl.Top
      End I