1*cdf0e10cSrcweirVERSION 5.00
2*cdf0e10cSrcweirBegin VB.Form TerminateMSO
3*cdf0e10cSrcweir   BorderStyle     =   3  'Fixed Dialog
4*cdf0e10cSrcweir   Caption         =   "Dialog Caption"
5*cdf0e10cSrcweir   ClientHeight    =   2280
6*cdf0e10cSrcweir   ClientLeft      =   3165
7*cdf0e10cSrcweir   ClientTop       =   2835
8*cdf0e10cSrcweir   ClientWidth     =   6030
9*cdf0e10cSrcweir   ControlBox      =   0   'False
10*cdf0e10cSrcweir   LinkTopic       =   "Form1"
11*cdf0e10cSrcweir   MaxButton       =   0   'False
12*cdf0e10cSrcweir   MinButton       =   0   'False
13*cdf0e10cSrcweir   ScaleHeight     =   2280
14*cdf0e10cSrcweir   ScaleWidth      =   6030
15*cdf0e10cSrcweir   ShowInTaskbar   =   0   'False
16*cdf0e10cSrcweir   Begin VB.CommandButton NoButton
17*cdf0e10cSrcweir      Cancel          =   -1  'True
18*cdf0e10cSrcweir      Caption         =   "No"
19*cdf0e10cSrcweir      CausesValidation=   0   'False
20*cdf0e10cSrcweir      Default         =   -1  'True
21*cdf0e10cSrcweir      Height          =   375
22*cdf0e10cSrcweir      Left            =   4560
23*cdf0e10cSrcweir      TabIndex        =   0
24*cdf0e10cSrcweir      Top             =   1800
25*cdf0e10cSrcweir      Width           =   1215
26*cdf0e10cSrcweir   End
27*cdf0e10cSrcweir   Begin VB.CommandButton YesButton
28*cdf0e10cSrcweir      Caption         =   "Yes"
29*cdf0e10cSrcweir      CausesValidation=   0   'False
30*cdf0e10cSrcweir      Height          =   375
31*cdf0e10cSrcweir      Left            =   3120
32*cdf0e10cSrcweir      TabIndex        =   1
33*cdf0e10cSrcweir      Top             =   1800
34*cdf0e10cSrcweir      Width           =   1215
35*cdf0e10cSrcweir   End
36*cdf0e10cSrcweir   Begin VB.Label Info
37*cdf0e10cSrcweir      Caption         =   "Label1"
38*cdf0e10cSrcweir      Height          =   1455
39*cdf0e10cSrcweir      Left            =   120
40*cdf0e10cSrcweir      TabIndex        =   2
41*cdf0e10cSrcweir      Top             =   120
42*cdf0e10cSrcweir      Width           =   5775
43*cdf0e10cSrcweir   End
44*cdf0e10cSrcweirEnd
45*cdf0e10cSrcweirAttribute VB_Name = "TerminateMSO"
46*cdf0e10cSrcweirAttribute VB_GlobalNameSpace = False
47*cdf0e10cSrcweirAttribute VB_Creatable = False
48*cdf0e10cSrcweirAttribute VB_PredeclaredId = True
49*cdf0e10cSrcweirAttribute VB_Exposed = False
50*cdf0e10cSrcweirOption Explicit
51*cdf0e10cSrcweir
52*cdf0e10cSrcweirConst CR_STR = "<CR>"
53*cdf0e10cSrcweir
54*cdf0e10cSrcweirPrivate Sub Form_Activate()
55*cdf0e10cSrcweir    NoButton.Default = True
56*cdf0e10cSrcweirEnd Sub
57*cdf0e10cSrcweir
58*cdf0e10cSrcweirPrivate Sub Form_Load()
59*cdf0e10cSrcweir
60*cdf0e10cSrcweir    TerminateMSO.Top = frmWizard.Top + 3000
61*cdf0e10cSrcweir    TerminateMSO.Left = frmWizard.Left + 1000
62*cdf0e10cSrcweir
63*cdf0e10cSrcweir    TerminateMSO.Caption = GetResString(TERMINATE_CAPTION)
64*cdf0e10cSrcweir    Info.Caption = ReplaceTopicTokens(GetResString(TERMINATE_INFO), CR_STR, Chr(13))
65*cdf0e10cSrcweir    YesButton.Caption = GetResString(TERMINATE_YES)
66*cdf0e10cSrcweir    NoButton.Caption = GetResString(TERMINATE_NO)
67*cdf0e10cSrcweir    NoButton.Default = True
68*cdf0e10cSrcweirEnd Sub
69*cdf0e10cSrcweir
70*cdf0e10cSrcweirPrivate Sub YesButton_Click()
71*cdf0e10cSrcweir    Dim fso As New FileSystemObject
72*cdf0e10cSrcweir    TerminateOfficeApps fso, " --kill"
73*cdf0e10cSrcweir    TerminateMSO.Hide
74*cdf0e10cSrcweir    Set fso = Nothing
75*cdf0e10cSrcweirEnd Sub
76*cdf0e10cSrcweir
77*cdf0e10cSrcweirPrivate Sub NoButton_Click()
78*cdf0e10cSrcweir    TerminateMSO.Hide
79*cdf0e10cSrcweirEnd Sub
80*cdf0e10cSrcweir
81*cdf0e10cSrcweir
82