VERSION 5.00
Begin VB.Form Ticker 
   BackColor       =   &H00FFFFFF&
   Caption         =   "Ticker Tape"
   ClientHeight    =   1065
   ClientLeft      =   1905
   ClientTop       =   4440
   ClientWidth     =   6885
   LinkTopic       =   "Form1"
   ScaleHeight     =   1065
   ScaleWidth      =   6885
   Begin VB.CommandButton cmdStop 
      Caption         =   "Stop"
      Height          =   375
      Left            =   2880
      TabIndex        =   3
      Top             =   600
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.CommandButton cmdFaster 
      Caption         =   "Faster >>"
      Height          =   375
      Left            =   4200
      TabIndex        =   5
      Top             =   600
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.CommandButton cmdSlower 
      Caption         =   "<< Slower"
      Height          =   375
      Left            =   1560
      TabIndex        =   4
      Top             =   600
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.CommandButton cmdStart 
      Caption         =   "Start"
      Height          =   375
      Left            =   2880
      TabIndex        =   1
      Top             =   600
      Width           =   1215
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   250
      Left            =   6120
      Top             =   600
   End
   Begin VB.TextBox txtString 
      Height          =   285
      Left            =   1800
      TabIndex        =   0
      Text            =   "Diamond Edge VB Converter"
      Top             =   120
      Width           =   3500
   End
   Begin VB.Label lblTape 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   19.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   495
      Left            =   0
      TabIndex        =   2
      Top             =   0
      Visible         =   0   'False
      Width           =   7005
   End
End
Attribute VB_Name = "Ticker"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Option Explicit


Private Sub cmdFaster_Click()

    If (Timer1.Interval - 25) > 25 Then
        Timer1.Interval = Timer1.Interval - 25
    Else
        Timer1.Interval = 1
    End If
    
End Sub

Private Sub cmdSlower_Click()

    Timer1.Interval = Timer1.Interval + 25
    
End Sub

Private Sub cmdStart_Click()
    
    lblTape.Caption = txtString.Text
    lblTape.Left = Ticker.Width
    txtString.Visible = False
    cmdStart.Visible = False
    cmdFaster.Visible = True
    cmdSlower.Visible = True
    lblTape.Visible = True
    cmdStop.Visible = True
    Timer1.Enabled = True
        
End Sub

Private Sub cmdStop_Click()

    cmdStart.Visible = True
    txtString.Visible = True
    cmdFaster.Visible = False
    cmdSlower.Visible = False
    lblTape.Visible = False
    cmdStop.Visible = False
    Timer1.Enabled = False
    lblTape.Left = Ticker.Width
    
End Sub


Private Sub Timer1_Timer()

    If (lblTape.Width + lblTape.Left) > 0 Then
        lblTape.Left = lblTape.Left - CInt(Ticker.Width / 15)
    Else
        lblTape.Left = Ticker.Width
    End If
    
End Sub