Form14.frm

 VERSION 5.00
Begin VB.Form Ajit
   BackColor       =   &H80000008&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Marqueeeeeee...."
   ClientHeight    =   2085
   ClientLeft      =   2115
   ClientTop       =   2010
   ClientWidth     =   7035
   FillColor       =   &H00FFFFFF&
   ForeColor       =   &H8000000F&
   Icon            =   "Form14.frx":0000
   LinkTopic       =   "Form14"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2085
   ScaleWidth      =   7035
   Begin Project1.XPButton XPButton1
      Height          =   390
      Left            =   5280
      TabIndex        =   7
      Top             =   720
      Width           =   1455
      _ExtentX        =   2566
      _ExtentY        =   688
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "Georgia"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Caption         =   "About me"
      ForeColor       =   -2147483642
      ForeHover       =   16711680
   End
   Begin VB.Timer Timer5
      Enabled         =   0   'False
      Interval        =   4000
      Left            =   2160
      Top             =   720
   End
   Begin VB.CommandButton Command5
      BackColor       =   &H80000009&
      Caption         =   "Stop"
      BeginProperty Font
         Name            =   "Georgia"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   390
      Left            =   3480
      Style           =   1  'Graphical
      TabIndex        =   4
      Top             =   1440
      Width           =   1455
   End
   Begin VB.Timer Timer4
      Enabled         =   0   'False
      Interval        =   4000
      Left            =   1560
      Top             =   720
   End
   Begin VB.Timer Timer3
      Enabled         =   0   'False
      Interval        =   20
      Left            =   1080
      Top             =   720
   End
   Begin VB.Timer Timer2
      Enabled         =   0   'False
      Interval        =   20
      Left            =   120
      Top             =   720
   End
   Begin VB.CommandButton Command4
      BackColor       =   &H8000000E&
      Caption         =   "Exit"
      BeginProperty Font
         Name            =   "Ravie"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   390
      Left            =   5280
      Style           =   1  'Graphical
      TabIndex        =   5
      ToolTipText     =   "for Exit"
      Top             =   1440
      Width           =   1455
   End
   Begin VB.Timer Timer1
      Enabled         =   0   'False
      Interval        =   20
      Left            =   600
      Top             =   720
   End
   Begin VB.CommandButton Command3
      BackColor       =   &H00FFFFFF&
      Caption         =   "  Alternate"
      BeginProperty Font
         Name            =   "Georgia"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   390
      Left            =   1800
      Style           =   1  'Graphical
      TabIndex        =   3
      ToolTipText     =   "I 'st type of marquee"
      Top             =   1440
      Width           =   1455
   End
   Begin VB.CommandButton Command2
      BackColor       =   &H00FFFFFF&
      Caption         =   " Regular"
      BeginProperty Font
         Name            =   "Georgia"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   390
      Left            =   120
      Style           =   1  'Graphical
      TabIndex        =   2
      ToolTipText     =   "I 'st type of marquee"
      Top             =   1440
      Width           =   1455
   End
   Begin VB.CommandButton Command1
      BackColor       =   &H00FFFFFF&
      Caption         =   "O.K."
      BeginProperty Font
         Name            =   "Georgia"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   390
      Left            =   3480
      Style           =   1  'Graphical
      TabIndex        =   1
      ToolTipText     =   "for replacment."
      Top             =   720
      UseMaskColor    =   -1  'True
      Width           =   1455
   End
   Begin VB.TextBox Text1
      BackColor       =   &H00FFFFFF&
      Height          =   405
      Left            =   120
      TabIndex        =   0
      ToolTipText     =   "Enter the TEXT"
      Top             =   720
      Width           =   3135
   End
   Begin VB.Label Label1
      BackColor       =   &H80000007&
      BackStyle       =   0  'Transparent
      Caption         =   "Ajit Choudhary"
      BeginProperty Font
         Name            =   "Georgia"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   120
      TabIndex        =   6
      Top             =   120
      Width           =   2055
   End
End
Attribute VB_Name = "Ajit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim W As Integer

Private Sub Command1_Click()

Label1.Caption = Text1.Text

End Sub

Private Sub Command2_Click()
Timer4.Enabled = True
Timer3.Enabled = True

'Timer1.Enabled = True

End Sub

Private Sub Command3_Click()

Timer2.Enabled = False
Timer3.Enabled = True
Timer5.Enabled = True


End Sub

Private Sub Command4_Click()
Unload Me

End Sub

Private Sub Command5_Click()
Timer1.Enabled = False
Timer2.Enabled = False

Timer4.Enabled = False

Label1.Left = 200

End Sub

Private Sub Timer1_Timer()

Label1.Left = Label1.Left + 45



End Sub

Private Sub Timer2_Timer()
Label1.Left = Label1.Left - 45



 

End Sub

Private Sub Timer3_Timer()
If Label1.ForeColor = vbBlue Then
Label1.ForeColor = vbRed
Else
Label1.ForeColor = vbBlue
End If


End Sub

Private Sub Timer4_Timer()


If Timer1.Enabled = True Then
Timer2.Enabled = True
    Timer1.Enabled = False
  
Else
    Timer1.Enabled = True
    Timer2.Enabled = False
End If


End Sub

Private Sub Timer5_Timer()
If Timer1.Enabled = True Then
Label1.Left = 200
    Timer1.Enabled = False
  
Else
    Timer1.Enabled = True
    Label1.Left = 200
End If


End Sub

Private Sub XPButton1_Click()
frmAbout.Show


End Sub

Project Homepage: