home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / entask / endtask.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  1.0 KB  |  37 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    Caption         =   "Unload Event on End Task demo"
  4.    ClientHeight    =   1095
  5.    ClientLeft      =   2085
  6.    ClientTop       =   2640
  7.    ClientWidth     =   4635
  8.    Height          =   1500
  9.    Left            =   2025
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   1095
  13.    ScaleWidth      =   4635
  14.    Top             =   2295
  15.    Width           =   4755
  16.    Begin Label Label1 
  17.       Caption         =   "Select End Task from the Task List"
  18.       Height          =   380
  19.       Left            =   720
  20.       TabIndex        =   0
  21.       Top             =   360
  22.       Width           =   3135
  23.    End
  24. Declare Sub SetEndTaskHook Lib "ENTASK.DLL" (ByVal hWnd As Integer)
  25. Declare Sub UndoEndTaskHook Lib "ENTASK.DLL" (ByVal zero As Integer)
  26. Sub Form_Load ()
  27. Call SetEndTaskHook(hWnd)
  28. End Sub
  29. Sub Form_Unload (Cancel As Integer)
  30.  i% = MsgBox("QUIT???", 1)
  31.  If i% = 2 Then
  32.    Cancel = -1
  33.  Else
  34.    Call UndoEndTaskHook(0)
  35.  End If
  36. End Sub
  37.