VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Message 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Virtual Hypnotist"
   ClientHeight    =   7455
   ClientLeft      =   4545
   ClientTop       =   2175
   ClientWidth     =   5790
   Icon            =   "Message.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7455
   ScaleWidth      =   5790
   Begin VB.TextBox Text3 
      Height          =   375
      Left            =   1800
      TabIndex        =   54
      Top             =   5160
      Width           =   3495
   End
   Begin VB.OptionButton Option22 
      Caption         =   "Is Like"
      Height          =   255
      Left            =   4800
      TabIndex        =   53
      Top             =   2160
      Visible         =   0   'False
      Width           =   855
   End
   Begin VB.CommandButton Command6 
      Caption         =   "Variable"
      Height          =   255
      Left            =   60
      TabIndex        =   52
      Top             =   2520
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox Text1 
      Height          =   615
      Left            =   1200
      TabIndex        =   2
      Top             =   1440
      Visible         =   0   'False
      Width           =   4215
   End
   Begin VB.CommandButton Command5 
      Caption         =   "Modifier"
      Height          =   255
      Left            =   60
      TabIndex        =   49
      Top             =   1800
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.CommandButton Command4 
      Caption         =   "Variable"
      Height          =   255
      Left            =   60
      TabIndex        =   48
      Top             =   1560
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.Frame Frame4 
      Caption         =   "Voice Tones"
      Height          =   1335
      Left            =   480
      TabIndex        =   28
      Top             =   5640
      Visible         =   0   'False
      Width           =   4815
      Begin VB.CheckBox chkWhisper 
         Caption         =   "Whisper"
         Height          =   255
         Left            =   3600
         TabIndex        =   44
         Top             =   960
         Width           =   975
      End
      Begin VB.CheckBox chkTense 
         Caption         =   "Tense"
         Height          =   255
         Left            =   3600
         TabIndex        =   43
         Top             =   720
         Width           =   975
      End
      Begin VB.CheckBox chkShout 
         Caption         =   "Shout"
         Height          =   255
         Left            =   3600
         TabIndex        =   42
         Top             =   480
         Width           =   975
      End
      Begin VB.CheckBox chkScared 
         Caption         =   "Scared"
         Height          =   255
         Left            =   3600
         TabIndex        =   41
         Top             =   240
         Width           =   975
      End
      Begin VB.CheckBox chkSarcastic 
         Caption         =   "Sarcastic"
         Height          =   255
         Left            =   2400
         TabIndex        =   40
         Top             =   960
         Width           =   975
      End
      Begin VB.CheckBox chkQuiet 
         Caption         =   "Quiet"
         Height          =   255
         Left            =   2400
         TabIndex        =   39
         Top             =   720
         Width           =   855
      End
      Begin VB.CheckBox chkPerky 
         Caption         =   "Perky"
         Height          =   255
         Left            =   2400
         TabIndex        =   38
         Top             =   480
         Width           =   855
      End
      Begin VB.CheckBox chkMonotone 
         Caption         =   "Monotone"
         Height          =   255
         Left            =   2400
         TabIndex        =   37
         Top             =   240
         Width           =   1095
      End
      Begin VB.CheckBox chkLoud 
         Caption         =   "Loud"
         Height          =   255
         Left            =   1320
         TabIndex        =   36
         Top             =   960
         Width           =   855
      End
      Begin VB.CheckBox chkHappy 
         Caption         =   "Happy"
         Height          =   255
         Left            =   1320
         TabIndex        =   35
         Top             =   720
         Width           =   855
      End
      Begin VB.CheckBox chkFalsetto 
         Caption         =   "Falsetto"
         Height          =   255
         Left            =   1320
         TabIndex        =   34
         Top             =   480
         Width           =   855
      End
      Begin VB.CheckBox chkExcited 
         Caption         =   "Excited"
         Height          =   255
         Left            =   1320
         TabIndex        =   33
         Top             =   240
         Width           =   855
      End
      Begin VB.CheckBox chkDepressed 
         Caption         =   "Depressed"
         Height          =   255
         Left            =   120
         TabIndex        =   32
         Top             =   960
         Width           =   1095
      End
      Begin VB.CheckBox chkCalm 
         Caption         =   "Calm"
         Height          =   255
         Left            =   120
         TabIndex        =   31
         Top             =   720
         Width           =   855
      End
      Begin VB.CheckBox chkBusiness 
         Caption         =   "Business"
         Height          =   255
         Left            =   120
         TabIndex        =   30
         Top             =   480
         Width           =   975
      End
      Begin VB.CheckBox chkAngry 
         Caption         =   "Angry"
         Height          =   255
         Left            =   120
         TabIndex        =   29
         Top             =   240
         Width           =   855
      End
   End
   Begin VB.CommandButton Command1 
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   375
      Left            =   1560
      TabIndex        =   26
      Top             =   6840
      Width           =   1215
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   0
      Top             =   0
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Choose File"
      Height          =   375
      Left            =   480
      TabIndex        =   23
      Top             =   5160
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.Frame Frame3 
      Caption         =   "Section"
      Height          =   615
      Left            =   480
      TabIndex        =   18
      Top             =   4450
      Visible         =   0   'False
      Width           =   4815
      Begin VB.OptionButton Option16 
         Caption         =   "Wakenings"
         Height          =   255
         Left            =   3550
         TabIndex        =   22
         Top             =   240
         Width           =   1200
      End
      Begin VB.OptionButton Option15 
         Caption         =   "Inductions"
         Height          =   255
         Left            =   120
         TabIndex        =   19
         Top             =   240
         Value           =   -1  'True
         Width           =   1095
      End
      Begin VB.OptionButton Option14 
         Caption         =   "Deepeners"
         Height          =   255
         Left            =   1200
         TabIndex        =   20
         Top             =   240
         Width           =   1095
      End
      Begin VB.OptionButton Option13 
         Caption         =   "Suggestions"
         Height          =   255
         Left            =   2300
         TabIndex        =   21
         Top             =   240
         Width           =   1215
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Data Source"
      Height          =   615
      Left            =   120
      TabIndex        =   8
      Top             =   3240
      Visible         =   0   'False
      Width           =   5535
      Begin VB.OptionButton Option19 
         Caption         =   "Trigger"
         Height          =   255
         Left            =   4560
         TabIndex        =   47
         Top             =   240
         Width           =   855
      End
      Begin VB.OptionButton Option18 
         Caption         =   "Gender"
         Height          =   255
         Left            =   3720
         TabIndex        =   46
         Top             =   240
         Width           =   855
      End
      Begin VB.OptionButton Option17 
         Caption         =   "Name"
         Height          =   255
         Left            =   3000
         TabIndex        =   45
         Top             =   240
         Width           =   735
      End
      Begin VB.OptionButton Option8 
         Caption         =   "Voice"
         Height          =   255
         Left            =   2280
         TabIndex        =   12
         Top             =   240
         Width           =   855
      End
      Begin VB.OptionButton Option5 
         Caption         =   "Text"
         Height          =   255
         Left            =   1600
         TabIndex        =   11
         Top             =   240
         Width           =   855
      End
      Begin VB.OptionButton Option6 
         Caption         =   "Key"
         Height          =   255
         Left            =   960
         TabIndex        =   10
         Top             =   240
         Width           =   735
      End
      Begin VB.OptionButton Option7 
         Caption         =   "YesNo"
         Height          =   255
         Left            =   120
         TabIndex        =   9
         Top             =   240
         Value           =   -1  'True
         Width           =   855
      End
   End
   Begin VB.TextBox Text2 
      Height          =   615
      Left            =   720
      TabIndex        =   7
      Top             =   2520
      Visible         =   0   'False
      Width           =   4215
   End
   Begin VB.OptionButton Option4 
      Caption         =   "Is Not"
      Height          =   255
      Left            =   3960
      TabIndex        =   6
      Top             =   2160
      Visible         =   0   'False
      Width           =   855
   End
   Begin VB.OptionButton Option3 
      Caption         =   "Is Less Than"
      Height          =   255
      Left            =   2640
      TabIndex        =   5
      Top             =   2160
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.OptionButton Option2 
      Caption         =   "Is Greater Than"
      Height          =   255
      Left            =   1080
      TabIndex        =   4
      Top             =   2160
      Visible         =   0   'False
      Width           =   1455
   End
   Begin VB.OptionButton Option1 
      Caption         =   "Equals"
      Height          =   255
      Left            =   240
      TabIndex        =   3
      Top             =   2160
      Value           =   -1  'True
      Visible         =   0   'False
      Width           =   855
   End
   Begin MSComctlLib.Slider Slider1 
      Height          =   375
      Left            =   840
      TabIndex        =   1
      Top             =   960
      Visible         =   0   'False
      Width           =   3975
      _ExtentX        =   7011
      _ExtentY        =   661
      _Version        =   393216
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Cancel"
      Height          =   375
      Left            =   3000
      TabIndex        =   27
      Top             =   6840
      Width           =   1215
   End
   Begin VB.Frame Frame2 
      Caption         =   "Math"
      Height          =   615
      Left            =   120
      TabIndex        =   13
      Top             =   3840
      Visible         =   0   'False
      Width           =   5535
      Begin VB.OptionButton Option21 
         Caption         =   "Random"
         Height          =   255
         Left            =   4440
         TabIndex        =   51
         Top             =   240
         Width           =   975
      End
      Begin VB.OptionButton Option20 
         Caption         =   "Modulus"
         Height          =   255
         Left            =   3480
         TabIndex        =   50
         Top             =   240
         Width           =   975
      End
      Begin VB.OptionButton Option12 
         Caption         =   "Multiply"
         Height          =   255
         Left            =   1800
         TabIndex        =   16
         Top             =   240
         Width           =   855
      End
      Begin VB.OptionButton Option11 
         Caption         =   "Subtract"
         Height          =   255
         Left            =   840
         TabIndex        =   15
         Top             =   240
         Width           =   1095
      End
      Begin VB.OptionButton Option10 
         Caption         =   "Add"
         Height          =   255
         Left            =   120
         TabIndex        =   14
         Top             =   240
         Value           =   -1  'True
         Width           =   855
      End
      Begin VB.OptionButton Option9 
         Caption         =   "Divide"
         Height          =   255
         Left            =   2700
         TabIndex        =   17
         Top             =   240
         Width           =   855
      End
   End
   Begin VB.ListBox List1 
      Height          =   1620
      ItemData        =   "Message.frx":08CA
      Left            =   2160
      List            =   "Message.frx":08CC
      TabIndex        =   25
      Top             =   5640
      Visible         =   0   'False
      Width           =   2295
   End
   Begin VB.Label Label3 
      Caption         =   "Key:"
      Height          =   255
      Left            =   1440
      TabIndex        =   24
      Top             =   5640
      Visible         =   0   'False
      Width           =   855
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   360
      TabIndex        =   0
      Top             =   120
      Width           =   5055
   End
End
Attribute VB_Name = "Message"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Virtual Hypnotist
'©2003-2008 FollowTheWatch Software
'http://vhypno.sourceforge.net
'http://sourceforge.net/projects/vhypno
'Contact - followthewatch55@yahoo.com

'This program is free software; you can redistribute it and/or
'modify it under the terms of the GNU General Public License
'as published by the Free Software Foundation; either version 2
'of the License, or (at your option) any later version.

'This program is distributed in the hope that it will be useful,
'but WITHOUT ANY WARRANTY; without even the implied warranty of
'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'GNU General Public License for more details.

'You should have received a copy of the GNU General Public License
'along with this program; if not, write to the Free Software
'Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

'Message Box stuff
Public MessageCaption As String
Public MessageNumber As Integer
Public MessageText As String
Public MessageText2 As String
Public MessageNumMax As Integer
Public MessageNumMin As Integer
Public MessageResponse As Boolean
Public MessageLogic As String
Public MessageData As String
Public MessageOperation As String
Public MessageSection As Integer
Public MessageFile As String
Public MessageKey As String
Public MessageTones As String
Public RelativePath As Boolean
Public FilePath As String
Public FileType As String

Option Explicit

Private Sub Command1_Click()
'If Text1.Visible = True And Text1.Text = "" Then MsgBox "Please enter text", vbExclamation: Exit Sub
'If Text2.Visible = True And Text2.Text = "" Then MsgBox "Please enter text", vbExclamation: Exit Sub
If Text3.Visible = True And Text3.Text = "" Then MsgBox "Please choose a file", vbExclamation: Exit Sub

MessageText = Text1.Text
MessageText2 = Text2.Text
MessageNumber = Slider1.Value
MessageFile = Text3.Text
MessageKey = List1.List(List1.ListIndex)
If Option1.Value = True Then MessageLogic = "="
If Option2.Value = True Then MessageLogic = ">"
If Option3.Value = True Then MessageLogic = "<"
If Option4.Value = True Then MessageLogic = "!"
If Option22.Value = True Then MessageLogic = "~"
If Option7.Value = True Then MessageData = "yesno"
If Option6.Value = True Then MessageData = "key"
If Option5.Value = True Then MessageData = "text"
If Option8.Value = True Then MessageData = "voice"
If Option17.Value = True Then MessageData = "name"
If Option18.Value = True Then MessageData = "gender"
If Option19.Value = True Then MessageData = "trigger"
If Option10.Value = True Then MessageOperation = "+"
If Option11.Value = True Then MessageOperation = "-"
If Option12.Value = True Then MessageOperation = "*"
If Option9.Value = True Then MessageOperation = "/"
If Option20.Value = True Then MessageOperation = "&"
If Option21.Value = True Then MessageOperation = "@"
If Option15.Value = True Then MessageSection = 1
If Option14.Value = True Then MessageSection = 2
If Option13.Value = True Then MessageSection = 3
If Option16.Value = True Then MessageSection = 4
If Frame4.Visible = True Then
    MessageTones = """"
    If chkAngry.Value = 1 Then MessageTones = MessageTones + "Angry,"
    If chkBusiness.Value = 1 Then MessageTones = MessageTones + "Business,"
    If chkCalm.Value = 1 Then MessageTones = MessageTones + "Calm,"
    If chkDepressed.Value = 1 Then MessageTones = MessageTones + "Depressed,"
    If chkExcited.Value = 1 Then MessageTones = MessageTones + "Excited,"
    If chkFalsetto.Value = 1 Then MessageTones = MessageTones + "Falsetto,"
    If chkHappy.Value = 1 Then MessageTones = MessageTones + "Happy,"
    If chkLoud.Value = 1 Then MessageTones = MessageTones + "Loud,"
    If chkMonotone.Value = 1 Then MessageTones = MessageTones + "Monotone,"
    If chkPerky.Value = 1 Then MessageTones = MessageTones + "Perky,"
    If chkQuiet.Value = 1 Then MessageTones = MessageTones + "Quiet,"
    If chkSarcastic.Value = 1 Then MessageTones = MessageTones + "Sarcastic,"
    If chkScared.Value = 1 Then MessageTones = MessageTones + "Scared,"
    If chkShout.Value = 1 Then MessageTones = MessageTones + "Shout,"
    If chkTense.Value = 1 Then MessageTones = MessageTones + "Tense,"
    If chkWhisper.Value = 1 Then MessageTones = MessageTones + "Whisper,"
    If MessageTones <> "" Then
        MessageTones = Mid(MessageTones, 1, Len(MessageTones) - 1)
        MessageTones = MessageTones + """"
    End If
End If
Unload Me
End Sub

Private Sub Command2_Click()
Cancel = True
Unload Me
End Sub

Private Sub Command3_Click()
On Error GoTo 100
CommonDialog1.Filename = ""
MessageFile = ""
Text3.Text = ""
If FilePath <> "" Then
    CommonDialog1.InitDir = FilePath
Else
    If Option15.Value = True Then CommonDialog1.InitDir = App.path + "\inductions"
    If Option14.Value = True Then CommonDialog1.InitDir = App.path + "\deepeners"
    If Option13.Value = True Then CommonDialog1.InitDir = App.path + "\suggestions"
    If Option16.Value = True Then CommonDialog1.InitDir = App.path + "\wakenings"
End If
CommonDialog1.CancelError = True
CommonDialog1.Filter = FileType
CommonDialog1.DialogTitle = "Choose Script File"
CommonDialog1.action = 1
If FilePath = "" Then
    If Option15.Value = True And InStr(1, CommonDialog1.Filename, App.path + "\inductions", vbTextCompare) > 0 Then
        If RelativePath = False Then MessageFile = Mid$(CommonDialog1.Filename, Len(App.path + "\inductions\") + 1)
    End If
    If Option14.Value = True And InStr(1, CommonDialog1.Filename, App.path + "\deepeners", vbTextCompare) > 0 Then
        If RelativePath = False Then MessageFile = Mid$(CommonDialog1.Filename, Len(App.path + "\deepeners\") + 1)
    End If
    If Option13.Value = True And InStr(1, CommonDialog1.Filename, App.path + "\suggestions", vbTextCompare) > 0 Then
        If RelativePath = False Then MessageFile = Mid$(CommonDialog1.Filename, Len(App.path + "\suggestions\") + 1)
    End If
    If Option16.Value = True And InStr(1, CommonDialog1.Filename, App.path + "\wakenings", vbTextCompare) > 0 Then
        If RelativePath = False Then MessageFile = Mid$(CommonDialog1.Filename, Len(App.path + "\wakenings\") + 1)
    End If
    If RelativePath = True Then MessageFile = Mid$(CommonDialog1.Filename, Len(App.path + "\") + 1)
Else
   If RelativePath = False Then MessageFile = CommonDialog1.Filename
   If RelativePath = True Then MessageFile = Mid$(CommonDialog1.Filename, Len(FilePath) + 2)
End If

Text3.Text = MessageFile

100
Exit Sub
End Sub

Public Function VHMessage(NumSlider As Integer, Box1 As Integer, Comparisons As Integer, Box2 As Integer, Data As Integer, Operation As Integer, Section As Integer, ChooseFile As Integer, KeyList As Integer, Tones As Integer, VarList As Boolean, ModList As Boolean, CaptionText As String, MinNum As Integer, MaxNum As Integer) As String
'the integer values for NumSlider to KeyList are the listing order wanted. 0=disable, 1=first item, 2=second item, etc

Slider1.Value = MinNum
Text1.Text = ""
Text2.Text = ""
Slider1.Visible = False
Text1.Visible = False
Text2.Visible = False
Option1.Visible = False
Option2.Visible = False
Option3.Visible = False
Option4.Visible = False
Option22.Visible = False
Frame1.Visible = False
Frame2.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Command3.Visible = False
Text3.Visible = False
Text3.Text = ""
Label3.Visible = False
List1.Visible = False
List1.Clear
Command4.Visible = False
Command5.Visible = False
Command6.Visible = False

'Position for first object
Dim TopLoc As Integer
TopLoc = 960

'distance between objects
Dim distancebetween As Integer
distancebetween = 200

'Objects in positions
Dim Objects(9) As Object

'Put objects into positions
Dim I As Integer
For I = 1 To 9
    If NumSlider = I Then Set Objects(I) = Slider1: GoTo Position
    If Box1 = I Then Set Objects(I) = Text1: GoTo Position
    If Comparisons = I Then Set Objects(I) = Option1: GoTo Position
    If Box2 = I Then Set Objects(I) = Text2: GoTo Position
    If Data = I Then Set Objects(I) = Frame1: GoTo Position
    If Operation = I Then Set Objects(I) = Frame2: GoTo Position
    If Section = I Then Set Objects(I) = Frame3: GoTo Position
    If ChooseFile = I Then Set Objects(I) = Command3: GoTo Position
    If KeyList = I Then Set Objects(I) = List1: GoTo Position
    If Tones = I Then Set Objects(I) = Frame4: GoTo Position
    
'Position OK and Cancel buttons, and resize form
Command1.Top = Objects(I - 1).Top + Objects(I - 1).Height + distancebetween
Command2.Top = Command1.Top
Me.Height = Command1.Top + Command1.Height + (distancebetween * 2.5)
Me.Left = (ScreenX / 2) - (Me.Width / 2)
Me.Top = (ScreenY / 2) - (Me.Height / 2)
Exit For

Position:
'Position sections
If I = 1 Then Objects(1).Top = TopLoc
If I > 1 Then Objects(I).Top = Objects(I - 1).Top + Objects(I - 1).Height + distancebetween

Next I

    'Set caption
    Label1.Caption = CaptionText
    
    'Individual object sections
    If NumSlider > 0 Then
        If Slider1.max <= MinNum Then
        Slider1.max = MaxNum
        Slider1.min = MinNum
    Else
        Slider1.min = MinNum
        Slider1.max = MaxNum
    End If
        Slider1.TickFrequency = Int((MaxNum - MinNum) / 20)
        Slider1.Visible = True
    End If
    If Box1 > 0 Then
        Text1.Visible = True
        If VarList = True Then Command4.Top = Text1.Top: Command4.Visible = True
        If ModList = True Then Command5.Top = Command4.Top + 240: Command5.Visible = True
        If VarList = True Or ModList = True Then Text1.Left = 1200 Else Text1.Left = 720
    End If
    If Comparisons > 0 Then
        Option2.Top = Option1.Top
        Option3.Top = Option1.Top
        Option4.Top = Option1.Top
        Option22.Top = Option1.Top
        Option1.Visible = True
        Option2.Visible = True
        Option3.Visible = True
        Option4.Visible = True
        Option22.Visible = True
    End If
    If Box2 > 0 Then
        Text2.Visible = True
        If VarList = True Then
            Command6.Top = Text2.Top
            Command6.Visible = True
            Text2.Left = 1200
        Else
            Text2.Left = 720
        End If
    End If
    If Data > 0 Then
        Frame1.Visible = True
    End If
    If Operation > 0 Then
        Frame2.Visible = True
    End If
    If Section > 0 Then
        Frame3.Visible = True
    End If
    If ChooseFile > 0 Then
        Text3.Top = Command3.Top
        Command3.Visible = True
        Text3.Visible = True
    End If
    If KeyList > 0 Then
        Label3.Top = List1.Top
        For I = 1 To 250
            If GetKeyName(I) <> "" Then List1.AddItem (GetKeyName(I))
            DoEvents
        Next I
        Label3.Visible = True
        List1.Visible = True
    End If
    If Tones > 0 Then
        Frame4.Visible = True
    End If
    
Me.Visible = True
Do While Me.Visible = True
DoEvents
Loop
Dim TempMessage As String
TempMessage = ""
If NumSlider > 0 Then
    TempMessage = TempMessage + LTrim$(Str$(MessageNumber))
End If
If Box1 > 0 Then
    TempMessage = TempMessage + MessageText
End If
If Comparisons > 0 Then
    TempMessage = TempMessage + MessageLogic
End If
If Box2 > 0 Then
    TempMessage = TempMessage + MessageText2
End If
If Data > 0 Then
    TempMessage = TempMessage + MessageData
End If
If Operation > 0 Then
    TempMessage = TempMessage + MessageOperation
End If
If Section > 0 Then
    TempMessage = TempMessage + LTrim$(Str$(MessageSection))
End If
If ChooseFile > 0 Then
    TempMessage = TempMessage + MessageFile
End If
If KeyList > 0 Then
    TempMessage = TempMessage + MessageKey
End If
If Tones > 0 Then
    TempMessage = TempMessage + MessageTones
End If

VHMessage = TempMessage
Unload Me
End Function

Private Sub Command4_Click()
ScriptMaker.AppendOnly = True
Set ScriptMaker.DestObject = Me.Text1
Me.PopupMenu ScriptMaker.mnuInsertVariable, , Command4.Left + 100, Command4.Top
End Sub

Private Sub Command5_Click()
ScriptMaker.AppendOnly = True
Set ScriptMaker.DestObject = Me.Text1
Me.PopupMenu ScriptMaker.mnuInsertSpeech, , Command5.Left + 100, Command5.Top
End Sub

