home *** CD-ROM | disk | FTP | other *** search
/ ActiveX Programming Unleashed CD / AXU.iso / activex / demos / oletrial / samples / vb / mhanim / foptions.bas < prev    next >
Encoding:
BASIC Source File  |  1995-08-25  |  451 b   |  24 lines
  1. Attribute VB_Name = "mOptions"
  2. Option Explicit
  3.  
  4. Global sgOptionArray() As String
  5. Global igOptionChosen As Integer
  6. Global igOptionSW As Integer
  7. Global igOptionState As Integer
  8.  
  9. Function GetOption(spCaption As String) As Integer
  10.  
  11.     fOptions.Caption = spCaption
  12.     fOptions.Show
  13.     
  14.     igOptionSW = 0
  15.     Do Until igOptionSW = 1
  16.         DoEvents
  17.     Loop
  18.     
  19.     Unload fOptions
  20.     GetOption = igOptionChosen
  21.  
  22. End Function
  23.  
  24.