home *** CD-ROM | disk | FTP | other *** search
/ ActiveX Programming Unleashed CD / AXU.iso / activex / demos / oletrial / samples / vb / mhkyst / frange.bas < prev    next >
Encoding:
BASIC Source File  |  1995-08-25  |  474 b   |  25 lines
  1. Attribute VB_Name = "mRange"
  2. Option Explicit
  3.  
  4. Global igRangeArray(0 To 2) As Integer
  5. Global sgRangeCaption As String
  6. Global igRangeChosen As Integer
  7. Global igRangeSW As Integer
  8. Global igRangeState As Integer
  9.  
  10. Function GetRange(spCaption As String) As Integer
  11.  
  12.     fRange.Caption = spCaption
  13.     fRange.Show
  14.     
  15.     igRangeSW = 0
  16.     Do Until igRangeSW = 1
  17.         DoEvents
  18.     Loop
  19.     
  20.     Unload fRange
  21.     GetRange = igRangeChosen
  22.  
  23. End Function
  24.  
  25.