VERSION 5.00
Begin VB.Form frmURLResponce 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "URL Response"
   ClientHeight    =   4485
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   9045
   ControlBox      =   0   'False
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   204
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmURLResponce.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4485
   ScaleWidth      =   9045
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton cmdHelp 
      Caption         =   "Video Help"
      Height          =   700
      Left            =   8040
      MaskColor       =   &H00FF00FF&
      Picture         =   "frmURLResponce.frx":08CA
      Style           =   1  'Graphical
      TabIndex        =   32
      ToolTipText     =   "Help on current step"
      Top             =   80
      UseMaskColor    =   -1  'True
      Visible         =   0   'False
      Width           =   870
   End
   Begin VB.CommandButton cmdClose 
      Caption         =   "Save and Close"
      Default         =   -1  'True
      Height          =   375
      Left            =   7560
      TabIndex        =   12
      Top             =   3960
      Width           =   1335
   End
   Begin VB.TextBox txtURLwatch 
      Height          =   315
      Index           =   2
      Left            =   1320
      TabIndex        =   8
      Top             =   3435
      Width           =   3135
   End
   Begin VB.TextBox txtURLshow 
      Height          =   315
      Index           =   2
      Left            =   5760
      TabIndex        =   9
      Top             =   3435
      Width           =   3135
   End
   Begin VB.TextBox txtURLwidth 
      Height          =   315
      Index           =   2
      Left            =   1320
      TabIndex        =   10
      Top             =   3840
      Width           =   735
   End
   Begin VB.TextBox txtURLheight 
      Height          =   315
      Index           =   2
      Left            =   2640
      TabIndex        =   11
      Top             =   3840
      Width           =   735
   End
   Begin VB.TextBox txtURLwatch 
      Height          =   315
      Index           =   1
      Left            =   1320
      TabIndex        =   4
      Top             =   2115
      Width           =   3135
   End
   Begin VB.TextBox txtURLshow 
      Height          =   315
      Index           =   1
      Left            =   5760
      TabIndex        =   5
      Top             =   2115
      Width           =   3135
   End
   Begin VB.TextBox txtURLwidth 
      Height          =   315
      Index           =   1
      Left            =   1320
      TabIndex        =   6
      Top             =   2520
      Width           =   735
   End
   Begin VB.TextBox txtURLheight 
      Height          =   315
      Index           =   1
      Left            =   2640
      TabIndex        =   7
      Top             =   2520
      Width           =   735
   End
   Begin VB.TextBox txtURLheight 
      Height          =   315
      Index           =   0
      Left            =   2640
      TabIndex        =   3
      Top             =   1320
      Width           =   735
   End
   Begin VB.TextBox txtURLwidth 
      Height          =   315
      Index           =   0
      Left            =   1320
      TabIndex        =   2
      Top             =   1320
      Width           =   735
   End
   Begin VB.TextBox txtURLshow 
      Height          =   315
      Index           =   0
      Left            =   5760
      TabIndex        =   1
      Top             =   915
      Width           =   3135
   End
   Begin VB.TextBox txtURLwatch 
      Height          =   315
      Index           =   0
      Left            =   1320
      TabIndex        =   0
      Top             =   915
      Width           =   3135
   End
   Begin VB.Label Label18 
      AutoSize        =   -1  'True
      Caption         =   "Watch URL 3"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   120
      TabIndex        =   31
      Top             =   3120
      Width           =   1065
   End
   Begin VB.Label Label17 
      Caption         =   "URL to watch:"
      Height          =   255
      Left            =   120
      TabIndex        =   30
      Top             =   3480
      Width           =   1095
   End
   Begin VB.Label Label16 
      AutoSize        =   -1  'True
      Caption         =   "URL to show:"
      Height          =   195
      Left            =   4680
      TabIndex        =   29
      Top             =   3480
      Width           =   960
   End
   Begin VB.Label Label15 
      AutoSize        =   -1  'True
      Caption         =   "Popup Size:"
      Height          =   195
      Left            =   120
      TabIndex        =   28
      Top             =   3885
      Width           =   840
   End
   Begin VB.Label Label14 
      Caption         =   "width"
      Height          =   255
      Left            =   2160
      TabIndex        =   27
      Top             =   3885
      Width           =   495
   End
   Begin VB.Label Label13 
      Caption         =   "height"
      Height          =   255
      Left            =   3480
      TabIndex        =   26
      Top             =   3885
      Width           =   495
   End
   Begin VB.Label Label12 
      AutoSize        =   -1  'True
      Caption         =   "Watch URL 2"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   120
      TabIndex        =   25
      Top             =   1800
      Width           =   1065
   End
   Begin VB.Label Label11 
      Caption         =   "URL to watch:"
      Height          =   255
      Left            =   120
      TabIndex        =   24
      Top             =   2160
      Width           =   1095
   End
   Begin VB.Label Label10 
      AutoSize        =   -1  'True
      Caption         =   "URL to show:"
      Height          =   195
      Left            =   4680
      TabIndex        =   23
      Top             =   2160
      Width           =   960
   End
   Begin VB.Label Label9 
      AutoSize        =   -1  'True
      Caption         =   "Popup Size:"
      Height          =   195
      Left            =   120
      TabIndex        =   22
      Top             =   2565
      Width           =   840
   End
   Begin VB.Label Label8 
      Caption         =   "width"
      Height          =   255
      Left            =   2160
      TabIndex        =   21
      Top             =   2565
      Width           =   495
   End
   Begin VB.Label Label7 
      Caption         =   "height"
      Height          =   255
      Left            =   3480
      TabIndex        =   20
      Top             =   2565
      Width           =   495
   End
   Begin VB.Label Label6 
      Caption         =   "height"
      Height          =   255
      Left            =   3480
      TabIndex        =   19
      Top             =   1365
      Width           =   495
   End
   Begin VB.Label Label5 
      Caption         =   "width"
      Height          =   255
      Left            =   2160
      TabIndex        =   18
      Top             =   1365
      Width           =   495
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "Popup Size:"
      Height          =   195
      Left            =   120
      TabIndex        =   17
      Top             =   1365
      Width           =   840
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "URL to show:"
      Height          =   195
      Left            =   4680
      TabIndex        =   16
      Top             =   960
      Width           =   960
   End
   Begin VB.Label Label2 
      Caption         =   "URL to watch:"
      Height          =   255
      Left            =   120
      TabIndex        =   15
      Top             =   960
      Width           =   1095
   End
   Begin VB.Label Label67 
      AutoSize        =   -1  'True
      Caption         =   "Watch URL 1"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   120
      TabIndex        =   14
      Top             =   600
      Width           =   1065
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "You can set up three URL's the toolbar will respond to with a popup when your user visits them."
      Height          =   195
      Left            =   120
      TabIndex        =   13
      Top             =   120
      Width           =   6870
   End
End
Attribute VB_Name = "frmURLResponce"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdClose_Click()
    Dim i As Long
    For i = 0 To 2
        If txtURLshow(i) <> "" And InStr(txtURLshow(i), "http://") = 0 Then txtURLshow(i) = "http://" & txtURLshow(i)
    Next i
    Me.Hide
End Sub

Private Sub cmdHelp_Click()
    frmMain.ShowHelp 11
End Sub
