more information, visit vbAccelerator on the web at
             http://vbaccelerator.com", vbInformation
         Case "Close"
            ' If we unload here directly, we will have a problem
            ' because the button code will not terminate.  sigh...
            PostMessage Me.hWnd, WM_SYSCOMMAND, SC_CLOSE, 0
         End Select
      End If
   Else
      ' lIndex=0 :: cancelled the menu.
   End If
   
   lblInfo.Caption = ""
   
End Sub

Private Sub Form_Load()
Dim i As Long
Dim iI As Long

   ' S