VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form frmAdButton 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Advertisement Button"
   ClientHeight    =   6510
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   11760
   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            =   "frmAdButton.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6510
   ScaleWidth      =   11760
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.Frame Frame2 
      Caption         =   "Ad Button Type:"
      Height          =   615
      Left            =   120
      TabIndex        =   66
      Top             =   600
      Width           =   3255
      Begin VB.PictureBox Picture2 
         Appearance      =   0  'Flat
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   300
         Left            =   50
         ScaleHeight     =   300
         ScaleWidth      =   3105
         TabIndex        =   67
         Top             =   240
         Width           =   3100
         Begin VB.OptionButton optWebButton 
            Caption         =   "Web Ad Button"
            Height          =   255
            Left            =   1680
            TabIndex        =   69
            Top             =   0
            Width           =   1455
         End
         Begin VB.OptionButton optStatic 
            Caption         =   "Static Picture Ad"
            Height          =   255
            Left            =   60
            TabIndex        =   68
            Top             =   0
            Width           =   1575
         End
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Rotate Ads:"
      Height          =   615
      Left            =   3480
      TabIndex        =   65
      Top             =   600
      Width           =   4335
      Begin VB.PictureBox Picture3 
         Appearance      =   0  'Flat
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   375
         Left            =   100
         ScaleHeight     =   375
         ScaleWidth      =   4200
         TabIndex        =   70
         Top             =   200
         Width           =   4200
         Begin VB.OptionButton optTime 
            Caption         =   "every"
            Height          =   195
            Left            =   2310
            TabIndex        =   73
            Top             =   40
            Width           =   720
         End
         Begin VB.OptionButton optClicks 
            Caption         =   "when user switch pages"
            Height          =   195
            Left            =   0
            TabIndex        =   72
            Top             =   40
            Width           =   2055
         End
         Begin VB.TextBox txtRotateTime 
            Height          =   315
            Left            =   3045
            MaxLength       =   3
            TabIndex        =   71
            Top             =   0
            Width           =   375
         End
         Begin VB.Label Label23 
            AutoSize        =   -1  'True
            Caption         =   "minutes."
            Height          =   195
            Left            =   3510
            TabIndex        =   75
            Top             =   40
            Width           =   615
         End
         Begin VB.Label Label22 
            AutoSize        =   -1  'True
            Caption         =   "or"
            Height          =   195
            Left            =   2070
            TabIndex        =   74
            Top             =   40
            Width           =   150
         End
      End
   End
   Begin VB.Frame fraAd 
      BorderStyle     =   0  'None
      Caption         =   "Web Button"
      Height          =   4215
      Index           =   1
      Left            =   120
      TabIndex        =   8
      Top             =   1400
      Visible         =   0   'False
      Width           =   11655
      Begin VB.TextBox txtWebButtonURL 
         Height          =   315
         Left            =   5280
         TabIndex        =   2
         Top             =   320
         Visible         =   0   'False
         Width           =   3615
      End
      Begin VB.TextBox txtWebButtonCode 
         Height          =   3015
         Left            =   0
         MultiLine       =   -1  'True
         ScrollBars      =   3  'Both
         TabIndex        =   3
         Top             =   1080
         Width           =   11500
      End
      Begin VB.TextBox txtWebButtonWidth 
         Height          =   315
         Left            =   1560
         TabIndex        =   1
         Top             =   320
         Width           =   1695
      End
      Begin VB.Label Label34 
         AutoSize        =   -1  'True
         Caption         =   "Web Button URL:"
         Height          =   195
         Left            =   3720
         TabIndex        =   12
         Top             =   345
         Visible         =   0   'False
         Width           =   1245
      End
      Begin VB.Label Label33 
         Caption         =   "Web Button Code:"
         Height          =   255
         Left            =   0
         TabIndex        =   11
         Top             =   720
         Width           =   1455
      End
      Begin VB.Label Label32 
         AutoSize        =   -1  'True
         Caption         =   "Web Button Width:  "
         Height          =   195
         Left            =   0
         TabIndex        =   10
         Top             =   345
         Width           =   1470
      End
      Begin VB.Label Label31 
         AutoSize        =   -1  'True
         Caption         =   "(optional)"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   204
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   0
         TabIndex        =   9
         Top             =   0
         Width           =   840
      End
   End
   Begin VB.Frame fraAd 
      BorderStyle     =   0  'None
      Caption         =   "Frame1"
      Height          =   4575
      Index           =   0
      Left            =   120
      TabIndex        =   6
      Top             =   1320
      Width           =   11655
      Begin VB.PictureBox Picture1 
         Appearance      =   0  'Flat
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   4575
         Left            =   0
         ScaleHeight     =   4575
         ScaleWidth      =   11655
         TabIndex        =   13
         Top             =   0
         Width           =   11655
         Begin VB.TextBox txtAdImage 
            Height          =   315
            Index           =   0
            Left            =   1560
            TabIndex        =   15
            Top             =   885
            Width           =   3255
         End
         Begin VB.TextBox txtAdCaption 
            Height          =   315
            Index           =   0
            Left            =   1560
            TabIndex        =   14
            Top             =   525
            Width           =   3255
         End
         Begin VB.TextBox txtAdImageOver 
            Height          =   315
            Index           =   0
            Left            =   1560
            TabIndex        =   19
            Top             =   1500
            Width           =   3255
         End
         Begin VB.TextBox txtAdURL 
            Height          =   315
            Index           =   0
            Left            =   1560
            TabIndex        =   23
            Top             =   1875
            Width           =   3255
         End
         Begin VB.TextBox txtAdImage 
            Height          =   315
            Index           =   1
            Left            =   7440
            TabIndex        =   27
            Top             =   885
            Width           =   3255
         End
         Begin VB.TextBox txtAdCaption 
            Height          =   315
            Index           =   1
            Left            =   7440
            TabIndex        =   25
            Top             =   525
            Width           =   3255
         End
         Begin VB.TextBox txtAdImageOver 
            Height          =   315
            Index           =   1
            Left            =   7440
            TabIndex        =   31
            Top             =   1500
            Width           =   3255
         End
         Begin VB.TextBox txtAdURL 
            Height          =   315
            Index           =   1
            Left            =   7440
            TabIndex        =   35
            Top             =   1875
            Width           =   3255
         End
         Begin VB.TextBox txtAdImage 
            Height          =   315
            Index           =   2
            Left            =   1560
            TabIndex        =   39
            Top             =   3165
            Width           =   3255
         End
         Begin VB.TextBox txtAdCaption 
            Height          =   315
            Index           =   2
            Left            =   1560
            TabIndex        =   37
            Top             =   2805
            Width           =   3255
         End
         Begin VB.TextBox txtAdImageOver 
            Height          =   315
            Index           =   2
            Left            =   1560
            TabIndex        =   43
            Top             =   3825
            Width           =   3255
         End
         Begin VB.TextBox txtAdURL 
            Height          =   315
            Index           =   2
            Left            =   1560
            TabIndex        =   47
            Top             =   4185
            Width           =   3255
         End
         Begin VB.TextBox txtAdImage 
            Height          =   315
            Index           =   3
            Left            =   7440
            TabIndex        =   51
            Top             =   3165
            Width           =   3255
         End
         Begin VB.TextBox txtAdCaption 
            Height          =   315
            Index           =   3
            Left            =   7440
            TabIndex        =   49
            Top             =   2805
            Width           =   3255
         End
         Begin VB.TextBox txtAdImageOver 
            Height          =   315
            Index           =   3
            Left            =   7440
            TabIndex        =   55
            Top             =   3825
            Width           =   3255
         End
         Begin VB.TextBox txtAdURL 
            Height          =   315
            Index           =   3
            Left            =   7440
            TabIndex        =   59
            Top             =   4185
            Width           =   3255
         End
         Begin VB.CommandButton cmdBrowseImage 
            Caption         =   "Browse"
            Height          =   315
            Index           =   0
            Left            =   4920
            TabIndex        =   17
            Top             =   885
            Width           =   735
         End
         Begin VB.CommandButton cmdBrowseImageOver 
            Caption         =   "Browse"
            Height          =   315
            Index           =   0
            Left            =   4920
            TabIndex        =   21
            Top             =   1485
            Width           =   735
         End
         Begin VB.CommandButton cmdBrowseImage 
            Caption         =   "Browse"
            Height          =   315
            Index           =   2
            Left            =   4920
            TabIndex        =   41
            Top             =   3165
            Width           =   735
         End
         Begin VB.CommandButton cmdBrowseImageOver 
            Caption         =   "Browse"
            Height          =   315
            Index           =   2
            Left            =   4920
            TabIndex        =   45
            Top             =   3825
            Width           =   735
         End
         Begin VB.CommandButton cmdBrowseImage 
            Caption         =   "Browse"
            Height          =   315
            Index           =   1
            Left            =   10800
            TabIndex        =   29
            Top             =   885
            Width           =   735
         End
         Begin VB.CommandButton cmdBrowseImageOver 
            Caption         =   "Browse"
            Height          =   315
            Index           =   1
            Left            =   10800
            TabIndex        =   33
            Top             =   1500
            Width           =   735
         End
         Begin VB.CommandButton cmdBrowseImage 
            Caption         =   "Browse"
            Height          =   315
            Index           =   3
            Left            =   10800
            TabIndex        =   53
            Top             =   3165
            Width           =   735
         End
         Begin VB.CommandButton cmdBrowseImageOver 
            Caption         =   "Browse"
            Height          =   315
            Index           =   3
            Left            =   10800
            TabIndex        =   57
            Top             =   3825
            Width           =   735
         End
         Begin VB.Label Label3 
            AutoSize        =   -1  'True
            Caption         =   "Image"
            Height          =   195
            Left            =   0
            TabIndex        =   64
            Top             =   885
            Width           =   450
         End
         Begin VB.Label Label2 
            Caption         =   "Caption:"
            Height          =   255
            Left            =   0
            TabIndex        =   63
            Top             =   570
            Width           =   1095
         End
         Begin VB.Label Label67 
            AutoSize        =   -1  'True
            Caption         =   "Ad 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            =   0
            TabIndex        =   62
            Top             =   45
            Width           =   375
         End
         Begin VB.Label Label4 
            AutoSize        =   -1  'True
            Caption         =   "Mouse-over Image: "
            Height          =   195
            Left            =   0
            TabIndex        =   61
            Top             =   1545
            Width           =   1455
         End
         Begin VB.Label Label5 
            Caption         =   "URL:"
            Height          =   255
            Left            =   0
            TabIndex        =   60
            Top             =   1920
            Width           =   1095
         End
         Begin VB.Label Label6 
            AutoSize        =   -1  'True
            Caption         =   "Image"
            Height          =   195
            Left            =   5880
            TabIndex        =   58
            Top             =   930
            Width           =   450
         End
         Begin VB.Label Label7 
            Caption         =   "Caption:"
            Height          =   255
            Left            =   5880
            TabIndex        =   56
            Top             =   570
            Width           =   1095
         End
         Begin VB.Label Label8 
            AutoSize        =   -1  'True
            Caption         =   "Ad 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            =   5880
            TabIndex        =   54
            Top             =   45
            Width           =   375
         End
         Begin VB.Label Label9 
            AutoSize        =   -1  'True
            Caption         =   "Mouse-over Image: "
            Height          =   195
            Left            =   5880
            TabIndex        =   52
            Top             =   1545
            Width           =   1455
         End
         Begin VB.Label Label10 
            Caption         =   "URL:"
            Height          =   255
            Left            =   5880
            TabIndex        =   50
            Top             =   1920
            Width           =   1095
         End
         Begin VB.Label Label11 
            AutoSize        =   -1  'True
            Caption         =   "Image"
            Height          =   195
            Left            =   0
            TabIndex        =   48
            Top             =   3165
            Width           =   450
         End
         Begin VB.Label Label12 
            Caption         =   "Caption:"
            Height          =   255
            Left            =   0
            TabIndex        =   46
            Top             =   2850
            Width           =   1095
         End
         Begin VB.Label Label13 
            AutoSize        =   -1  'True
            Caption         =   "Ad 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            =   0
            TabIndex        =   44
            Top             =   2355
            Width           =   375
         End
         Begin VB.Label Label14 
            AutoSize        =   -1  'True
            Caption         =   "Mouse-over Image: "
            Height          =   195
            Left            =   0
            TabIndex        =   42
            Top             =   3885
            Width           =   1455
         End
         Begin VB.Label Label16 
            AutoSize        =   -1  'True
            Caption         =   "Image"
            Height          =   195
            Left            =   5880
            TabIndex        =   40
            Top             =   3210
            Width           =   450
         End
         Begin VB.Label Label17 
            Caption         =   "Caption:"
            Height          =   255
            Left            =   5880
            TabIndex        =   38
            Top             =   2850
            Width           =   1095
         End
         Begin VB.Label Label18 
            AutoSize        =   -1  'True
            Caption         =   "Ad 4"
            BeginProperty Font 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   204
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   195
            Left            =   5880
            TabIndex        =   36
            Top             =   2370
            Width           =   375
         End
         Begin VB.Label Label19 
            AutoSize        =   -1  'True
            Caption         =   "Mouse-over Image: "
            Height          =   195
            Left            =   5880
            TabIndex        =   34
            Top             =   3885
            Width           =   1455
         End
         Begin VB.Label Label20 
            Caption         =   "URL:"
            Height          =   255
            Left            =   5880
            TabIndex        =   32
            Top             =   4245
            Width           =   1095
         End
         Begin VB.Label Label58 
            AutoSize        =   -1  'True
            Caption         =   "(optional)"
            BeginProperty Font 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   204
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   195
            Left            =   0
            TabIndex        =   30
            Top             =   1305
            Width           =   840
         End
         Begin VB.Label Label24 
            AutoSize        =   -1  'True
            Caption         =   "(optional)"
            BeginProperty Font 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   204
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   195
            Left            =   5880
            TabIndex        =   28
            Top             =   1305
            Width           =   840
         End
         Begin VB.Label Label25 
            AutoSize        =   -1  'True
            Caption         =   "(optional)"
            BeginProperty Font 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   204
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   195
            Left            =   0
            TabIndex        =   26
            Top             =   3645
            Width           =   840
         End
         Begin VB.Label Label26 
            AutoSize        =   -1  'True
            Caption         =   "(optional)"
            BeginProperty Font 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   204
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   195
            Left            =   5880
            TabIndex        =   24
            Top             =   3645
            Width           =   840
         End
         Begin VB.Label Label27 
            AutoSize        =   -1  'True
            Caption         =   "(optional)"
            BeginProperty Font 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   204
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   195
            Left            =   0
            TabIndex        =   22
            Top             =   315
            Width           =   840
         End
         Begin VB.Label Label28 
            AutoSize        =   -1  'True
            Caption         =   "(optional)"
            BeginProperty Font 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   204
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   195
            Left            =   5880
            TabIndex        =   20
            Top             =   315
            Width           =   840
         End
         Begin VB.Label Label29 
            AutoSize        =   -1  'True
            Caption         =   "(optional)"
            BeginProperty Font 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   204
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   195
            Left            =   5880
            TabIndex        =   18
            Top             =   2610
            Width           =   840
         End
         Begin VB.Label Label30 
            AutoSize        =   -1  'True
            Caption         =   "(optional)"
            BeginProperty Font 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   204
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   195
            Left            =   0
            TabIndex        =   16
            Top             =   2610
            Width           =   840
         End
      End
      Begin MSComDlg.CommonDialog dlgButtonImageBrowse 
         Left            =   0
         Top             =   4600
         _ExtentX        =   847
         _ExtentY        =   847
         _Version        =   393216
         CancelError     =   -1  'True
         DialogTitle     =   "Use Bitmap Image. Max. Size 20x40. Background Color 0,128,128"
         Filter          =   "Picture Files|*.bmp"
      End
      Begin VB.Label Label15 
         Caption         =   "URL:"
         Height          =   255
         Left            =   0
         TabIndex        =   7
         Top             =   4600
         Width           =   1095
      End
   End
   Begin VB.CommandButton cmdHelp 
      Caption         =   "Video Help"
      Height          =   700
      Left            =   10800
      MaskColor       =   &H00FF00FF&
      Picture         =   "frmAdButton.frx":08CA
      Style           =   1  'Graphical
      TabIndex        =   0
      ToolTipText     =   "Help on current step"
      Top             =   120
      UseMaskColor    =   -1  'True
      Visible         =   0   'False
      Width           =   870
   End
   Begin VB.CommandButton cmdClose 
      Caption         =   "Save and Close"
      Height          =   375
      Left            =   10320
      TabIndex        =   5
      Top             =   6000
      Width           =   1335
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   $"frmAdButton.frx":0FCC
      Height          =   390
      Left            =   120
      TabIndex        =   4
      Top             =   120
      Width           =   5400
   End
End
Attribute VB_Name = "frmAdButton"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdBrowseImage_Click(index As Integer)
    On Error GoTo ErrHandler
    dlgButtonImageBrowse.CancelError = True
    dlgButtonImageBrowse.FileName = App.Path & "\Icons\noname"
    dlgButtonImageBrowse.ShowOpen
    txtAdImage(index).Text = dlgButtonImageBrowse.FileName
    If txtAdImage(index).Text = App.Path & "\Icons\noname.bmp" Then
        txtAdImage(index).Text = ""
    End If
    Exit Sub
    
ErrHandler:
    If Err.Number <> cdlCancel Then
        MsgBox Err.Description, vbExclamation
    End If
End Sub

Private Sub cmdBrowseImageOver_Click(index As Integer)
    On Error GoTo ErrHandler
    dlgButtonImageBrowse.CancelError = True
    dlgButtonImageBrowse.ShowOpen
    txtAdImageOver(index).Text = dlgButtonImageBrowse.FileName
    Exit Sub
    
ErrHandler:
    If Err.Number <> cdlCancel Then
        MsgBox Err.Description, vbExclamation
    End If
End Sub

Private Sub cmdClose_Click()

    Dim i As Long
    For i = 0 To 3
        If txtAdURL(i) <> "" And InStr(txtAdURL(i), "http://") = 0 Then txtAdURL(i) = "http://" & txtAdURL(i)
    Next i

    Me.Hide
End Sub

Private Sub cmdHelp_Click()
    frmMain.ShowHelp 12
End Sub

Private Sub Form_Activate()
    txtRotateTime.Enabled = optTime.Value
    
End Sub

Private Sub optClicks_Click()
    txtRotateTime.Enabled = optTime.Value
End Sub

Private Sub optStatic_Click()
    fraAd(0).Visible = True
    fraAd(1).Visible = False
End Sub

Private Sub optTime_Click()
    txtRotateTime.Enabled = optTime.Value
End Sub

Private Sub optWebButton_Click()
    fraAd(0).Visible = False
    fraAd(1).Visible = True
End Sub
