VERSION 4.00
Begin VB.Form frmWCounter 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "CoolCounter Web Example"
   ClientHeight    =   6480
   ClientLeft      =   2235
   ClientTop       =   2145
   ClientWidth     =   6225
   Height          =   6885
   Icon            =   "WCounter.frx":0000
   Left            =   2175
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6480
   ScaleWidth      =   6225
   Top             =   1800
   Width           =   6345
   Begin VB.Frame Frame1 
      Caption         =   "Counter Control"
      Height          =   5640
      Left            =   45
      TabIndex        =   1
      Top             =   810
      Width           =   6135
      Begin VB.TextBox Text1 
         BackColor       =   &H00C0C0C0&
         Height          =   330
         Left            =   630
         Locked          =   -1  'True
         TabIndex        =   6
         Text            =   "http://www.4developers.com/cgi_bin/counter.cgi/"
         Top             =   5220
         Width           =   4155
      End
      Begin VB.ListBox List1 
         BackColor       =   &H00C0C0C0&
         Height          =   4155
         ItemData        =   "WCounter.frx":08CA
         Left            =   135
         List            =   "WCounter.frx":090A
         TabIndex        =   4
         Top             =   945
         Width           =   5820
      End
      Begin VB.CommandButton cmdExit 
         Caption         =   "E&xit"
         Height          =   375
         Left            =   4905
         TabIndex        =   3
         Top             =   5175
         Width           =   1095
      End
      Begin VB.CheckBox chkCounterActive 
         Caption         =   "&Counter Is Active"
         Height          =   240
         Left            =   135
         TabIndex        =   2
         Top             =   270
         Width           =   1590
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "Copy:"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000080&
         Height          =   195
         Left            =   135
         TabIndex        =   7
         Top             =   5175
         Width           =   495
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "IMPORTANT: Read the following before activating..."
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000080&
         Height          =   195
         Left            =   135
         TabIndex        =   5
         Top             =   720
         Width           =   4500
      End
   End
   Begin COOLCOUNTERLib.CoolCounter CoolCounter1 
      Height          =   690
      Left            =   45
      TabIndex        =   0
      Top             =   45
      Width           =   3165
      _Version        =   65536
      _ExtentX        =   5583
      _ExtentY        =   1217
      _StockProps     =   41
      ForeColor       =   0
      BackColor       =   0
      DigitBackColor  =   65279
      DigitSpeed      =   2
      BeginProperty DigitFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Courier New"
         Size            =   26.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      WebUpdateInterval=   30
   End
End
Attribute VB_Name = "frmWCounter"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit













Private Sub chkCounterActive_Click()
    CoolCounter1.WebEnable = (chkCounterActive.Value = 1)
    
End Sub


 






Private Sub cmdExit_Click()
    Unload Me
    
End Sub

Private Sub Form_Load()
    CoolCounter1.DigitBackColor = RGB(255, 204, 0)
    CoolCounter1.DigitChangedSound = App.Path & "\Beep.WAV"
   
    
End Sub


Private Sub List1_Click()

End Sub