VERSION 5.00
Begin VB.Form SubControlPanel 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Subliminals Control Panel"
   ClientHeight    =   1095
   ClientLeft      =   5220
   ClientTop       =   2340
   ClientWidth     =   3375
   Icon            =   "SubContolPanel.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   1095
   ScaleWidth      =   3375
   WindowState     =   1  'Minimized
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   240
      Top             =   720
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Stop Subliminals"
      Height          =   375
      Left            =   1080
      TabIndex        =   0
      Top             =   600
      Width           =   1335
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Caption         =   "Click the button below to stop the subliminals and return to Virtual Hypnotist"
      Height          =   495
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   3015
   End
End
Attribute VB_Name = "SubControlPanel"
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.

Option Explicit

Private Sub Command1_Click()
On Error Resume Next
    Quit = False
    If frmSession.chkEnableBinaural.value = 1 Then Call Binaural.Stop_Gen
    If SynthSpeech = True And UseSAPI5 = False Then
        Char.StopAll
        Char.Hide
    End If
    If AutoExit = True Then End
    frmMain.WindowState = 0
    frmMain.Show
    frmMain.SetFocus
    frmSub.Visible = False
    Unload frmHypno
    Unload Me
End Sub

Private Sub Form_Load()
SubControlPanel.Left = (ScreenX / 2) - (SubControlPanel.Width / 2)
SubControlPanel.top = (ScreenY / 2) - (SubControlPanel.Height / 2)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call Command1_Click
End Sub

Private Sub Timer1_Timer()
'since frmMain doesn't want to hide, this forces it ;)
frmMain.Visible = False
End Sub
