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