home *** CD-ROM | disk | FTP | other *** search
/ ActiveX Programming Unleashed CD / AXU.iso / activex / demos / oletrial / samples / vb / mhdial / mhdial.bas < prev    next >
Encoding:
BASIC Source File  |  1995-11-30  |  575 b   |  38 lines
  1. Attribute VB_Name = "DemoMain"
  2. Option Explicit 'always
  3. Public Sub CenterForm(x_YourForm As Form)
  4.  
  5.  
  6.     
  7. End Sub
  8.  
  9.  
  10.  
  11. Public Sub Main()
  12.  
  13.  
  14.     ' let's run the demo!
  15.     Screen.MousePointer = vbHourglass
  16.     Load frmMh3dList_OCX
  17.     frmMh3dList_OCX.Show
  18.     Screen.MousePointer = vbDefault
  19.     
  20.     
  21. End Sub
  22.  
  23. ' This method closes the demo program safely
  24. Public Sub ProgramExit()
  25.  
  26.  
  27.     ' unload all forms
  28.     Dim TempForm As Form
  29.     For Each TempForm In Forms
  30.         Unload TempForm
  31.     Next TempForm
  32.     
  33.     ' end program
  34.     End
  35.  
  36.  
  37. End Sub
  38.