home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap16 / dlgrun4 / dodorunr.cls next >
Encoding:
Text File  |  1995-07-13  |  295 b   |  18 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "DoDoRunRun"
  6. Attribute VB_Creatable = False
  7. Attribute VB_Exposed = True
  8. Option Explicit
  9.  
  10. Public VBInstance As Object
  11.  
  12. Private dlg As New RunClass
  13.  
  14. Public Sub AfterClick()
  15.     dlg.Run
  16.     dlg.Execute
  17. End Sub
  18.