frmAbout.frm

 VERSION 5.00
Begin VB.Form frmAbout
   Caption         =   "Ferds"
   ClientHeight    =   3705
   ClientLeft      =   60
   ClientTop       =   375
   ClientWidth     =   4995
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   Moveable        =   0   'False
   ScaleHeight     =   3705
   ScaleWidth      =   4995
   StartUpPosition =   2  'CenterScreen
   Begin VB.Timer Timer4
      Interval        =   500
      Left            =   3720
      Top             =   360
   End
   Begin VB.CommandButton btn_OK
      Caption         =   "OK"
      Default         =   -1  'True
      BeginProperty Font
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3960
      TabIndex        =   1
      Top             =   2280
      Width           =   615
   End
   Begin VB.TextBox Text1
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      ForeColor       =   &H00C00000&
      Height          =   285
      Left            =   360
      Locked          =   -1  'True
      TabIndex        =   0
      Top             =   3000
      Width           =   4095
   End
   Begin VB.Timer Timer3
      Enabled         =   0   'False
      Interval        =   1
      Left            =   2520
      Top             =   2520
   End
   Begin VB.Timer Timer2
      Interval        =   55
      Left            =   3240
      Top             =   2520
   End
   Begin VB.Timer Timer1
      Interval        =   700
      Left            =   2880
      Top             =   2520
   End
   Begin VB.Label Label5
      BackStyle       =   0  'Transparent
      Caption         =   "Viray"
      BeginProperty Font
         Name            =   "Bauhaus 93"
         Size            =   65.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   1935
      Left            =   720
      TabIndex        =   6
      Top             =   840
      Width           =   3735
   End
   Begin VB.Label Label4
      BackStyle       =   0  'Transparent
      Caption         =   " Viray"
      BeginProperty Font
         Name            =   "Bauhaus 93"
         Size            =   65.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1695
      Left            =   600
      TabIndex        =   5
      Top             =   840
      Width           =   3615
   End
   Begin VB.Image img_About
      Height          =   480
      Left            =   360
      Top             =   240
      Width           =   480
   End
   Begin VB.Label lbl_About
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "This progam is created by"
      BeginProperty Font
         Name            =   "Tahoma"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   555
      TabIndex        =   4
      Top             =   480
      Width           =   3345
      WordWrap        =   -1  'True
   End
   Begin VB.Label Label1
      AutoSize        =   -1  'True
      Caption         =   "e-mail: ferdyferdsviray@yahoo.com"
      ForeColor       =   &H00FF0000&
      Height          =   195
      Index           =   0
      Left            =   1320
      TabIndex        =   3
      Top             =   3360
      Width           =   2460
   End
   Begin VB.Label Label2
      AutoSize        =   -1  'True
      Caption         =   "from CSTA"
      Height          =   195
      Left            =   360
      TabIndex        =   2
      Top             =   2760
      Width           =   765
   End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Dim flag As String
Dim txtFind, TxtReplace, TmpPos As Integer
Dim c1, c2, str, l
Private Sub btn_OK_Click()
    Unload frmAbout
End Sub
Private Sub Form_Activate()
flag = "T"
frmAbout.Top = (Screen.Height - frmAbout.Height) / 2
frmAbout.Left = (Screen.Width - frmAbout.Width) / 2
Text1.SetFocus

str = Label4.Caption
End Sub

Private Sub Form_Load()
AnimateForm Me, aLoad, aMedium
Timer3.Enabled = True
Text1.Text = "          T         h          i            s               .P            r           o           g                      r            a          m       .     I           s    . C        r         e         a           t       e       d      .B          y .    F             e            r           d            i       n        a           n          d          e         d . V          i          r                  a             y                .J          r. , ."
txtFind = " "
TxtReplace = ""
End Sub

Private Sub Command1_Click()
Timer3.Enabled = False
Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
AnimateForm Me, aUnload, aMedium
frmAbout.Enabled = True
End Sub

Private Sub Timer1_Timer()
Static i As Integer
If i > 15 Then i = 0
Label2.ForeColor = QBColor(i)
i = i + 1
lbl_About.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)



End Sub

Private Sub Timer2_Timer()
If TextWidth(Me.Caption) > Me.Width - 1700 Then
flag = "B"
ElseIf Len(Me.Caption) = 6 Then
flag = "T"
End If
If flag = "T" Then
Me.Caption = Space(1) & Me.Caption
ElseIf flag = "B" Then
Me.Caption = Mid(Me.Caption, 2, Len(Me.Caption) - 1)
End If
End Sub

Private Sub Timer3_Timer()
If txtFind <> "" And txtFind <> TxtReplace Then
If InStr(Text1.Text, txtFind) <> 0 Then
    Text1 = Left(Text1.Text, InStr(Text1.Text, txtFind) - 1) & TxtReplace & Mid(Text1, InStr(Text1.Text, txtFind) + Len(txtFind))
Else
    txtFind = "."
    TxtReplace = " "
End If
End If

End Sub



Private Sub Timer4_Timer()
l = Len(str) + 1
If c1 < l Then
   Label4.Caption = Mid(str, 1, c1)
   c1 = c1 + 1
Else
   If c2 < l Then
     Label5.Caption = Mid(str, 1, c2)
     c2 = c2 + 1
   Else
     c2 = 0
     c1 = 0
   End If
End If
End Sub

Project Homepage: