Form2.vb

 Public Class Form2

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Select Case Selectd

            'For Group Box "About" = About Me

            Case 1
                AboutMe.Text = "A_"
            Case 2
                AboutMe.Text = "Ab_"
            Case 3
                AboutMe.Text = "Abo_"
            Case 4
                AboutMe.Text = "Abou_"
            Case 5
                AboutMe.Text = "About_"
            Case 6
                AboutMe.Text = "About _"
            Case 7
                AboutMe.Text = "About M_"
            Case 8
                AboutMe.Text = "About Me"

                ' For Label "Pname" = Product Name : Milad

            Case 9
                Pname.Text = "P_"
            Case 10
                Pname.Text = "Pr_"
            Case 11
                Pname.Text = "Pro_"
            Case 12
                Pname.Text = "Prod_"
            Case 13
                Pname.Text = "Produ_"
            Case 14
                Pname.Text = "Produc_"
            Case 15
                Pname.Text = "Product_"
            Case 16
                Pname.Text = "Product _"
            Case 17
                Pname.Text = "Product N_"
            Case 18
                Pname.Text = "Product Na_"
            Case 19
                Pname.Text = "Product Nam_"
            Case 20
                Pname.Text = "Product Name_"
            Case 21
                Pname.Text = "Product Name :_ "
            Case 22
                Pname.Text = "Product Name : _"
            Case 23
                Pname.Text = "Product Name : M_"
            Case 24
                Pname.Text = "Product Name : Mi_"
            Case 25
                Pname.Text = "Product Name : Mil_"
            Case 25
                Pname.Text = "Product Name : Mila_"
            Case 26
                Pname.Text = "Product Name : Milad"

                ' For Label "V" = Version 1.0

            Case 27
                V.Text = "V_"
            Case 28
                V.Text = "Ve_"
            Case 29
                V.Text = "Ver_"
            Case 30
                V.Text = "Vers_"
            Case 31
                V.Text = "Versi_"
            Case 32
                V.Text = "Versio_"
            Case 33
                V.Text = "Version_"
            Case 33
                V.Text = "Versin _"
            Case 34
                V.Text = "Version : _"
            Case 35
                V.Text = "Version : 2_"
            Case 36
                V.Text = "Version : 2._"
            Case 37
                V.Text = "Version : 2.0"

                ' For Label "Cname" = Company Name : Space Group

            Case 38
                Cname.Text = "C_"
            Case 39
                Cname.Text = "Co_"
            Case 40
                Cname.Text = "Com_"
            Case 41
                Cname.Text = "Comp_"
            Case 42
                Cname.Text = "Compa_"
            Case 43
                Cname.Text = "Compan_"
            Case 44
                Cname.Text = "Company_"
            Case 45
                Cname.Text = "Company _"
            Case 46
                Cname.Text = "Company N_"
            Case 47
                Cname.Text = "Company Na_"
            Case 48
                Cname.Text = "Company Nam_"
            Case 49
                Cname.Text = "Company Name_"
            Case 50
                Cname.Text = "Company Name : _"
            Case 51
                Cname.Text = "Company Name : S_"
            Case 52
                Cname.Text = "Company Name : Sp_"
            Case 53
                Cname.Text = "Company Name : Spa_"
            Case 54
                Cname.Text = "Company Name : Spac_"
            Case 55
                Cname.Text = "Company Name : Space_"
            Case 56
                Cname.Text = "Company Name : Space _"
            Case 57
                Cname.Text = "Company Name : Space G_"
            Case 58
                Cname.Text = "Company Name : Space Gr_"
            Case 59
                Cname.Text = "Company Name : Space Gro_"
            Case 60
                Cname.Text = "Company Name : Space Grou_"
            Case 61
                Cname.Text = "Company Name : Space Group"

                ' For Label "Copy" = Copyright : 2012

            Case 62
                Copy.Text = "C_"
            Case 63
                Copy.Text = "Co_"
            Case 64
                Copy.Text = "Cop_"
            Case 65
                Copy.Text = "Copy_"
            Case 66
                Copy.Text = "Copy _"
            Case 67
                Copy.Text = "Copyr_"
            Case 68
                Copy.Text = "Copyri_"
            Case 69
                Copy.Text = "Copyrig_"
            Case 70
                Copy.Text = "Copyrigh_"
            Case 71
                Copy.Text = "Copyright_"
            Case 72
                Copy.Text = "Copyright _"
            Case 73
                Copy.Text = "Copyright :_"
            Case 74
                Copy.Text = "Copyright : 2_"
            Case 75
                Copy.Text = "Copyright : 20_"
            Case 76
                Copy.Text = "Copyright : 201_"
            Case 77
                Copy.Text = "Copyright : 2012                                             Please Wite ..."
                My.Computer.Audio.Stop()     '\\\\\\\\\\\\\\\\\ For Stop Sound Type \\\\\\\\\\\\\\\\

                ' For Label1.text = Please Wite ....(Continue)

            Case 78
                Copy.Text = "Copyright : 2012                                             Please Wite ."
            Case 79
                Copy.Text = "Copyright : 2012                                             Please Wite .."
            Case 80
                Copy.Text = "Copyright : 2012                                             Please Wite ..."
            Case 81
                Copy.Text = "Copyright : 2012                                             Please Wite "
            Case 82
                Copy.Text = "Copyright : 2012                                             Please Wite ."
            Case 83
                Copy.Text = "Copyright : 2012                                             Please Wite .."
            Case 84
                Copy.Text = "Copyright : 2012                                             Please Wite ..."
            Case 85
                Copy.Text = "Copyright : 2012                                             Please Wite "
            Case 86
                Copy.Text = "Copyright : 2012                                             Please Wite ."
            Case 87
                Copy.Text = "Copyright : 2012                                             Please Wite .."
            Case 88
                Copy.Text = "Copyright : 2012                                             Please Wite ..."
            Case 89
                Copy.Text = "Copyright : 2012                                             Please Wite "
            Case 90
                Copy.Text = "Copyright : 2012                                             Please Wite ."
            Case 91
                Copy.Text = "Copyright : 2012                                             Please Wite .."
            Case 92
                Copy.Text = "Copyright : 2012                                             Please Wite ..."
            Case 93
                Copy.Text = "Copyright : 2012                                             Please Wite "
            Case 94
                Copy.Text = "Copyright : 2012                                             Please Wite ."
            Case 95
                Copy.Text = "Copyright : 2012                                             Please Wite .."
            Case 96
                Copy.Text = "Copyright : 2012                                             Please Wite ..."
            Case 97
                Copy.Text = "Copyright : 2012                                             Please Wite "
            Case 98
                Copy.Text = "Copyright : 2012                                             Please Wite ."
            Case 99
                Copy.Text = "Copyright : 2012                                             Please Wite .."
            Case 100
                Copy.Text = "Copyright : 2012                                             Please Wite ..."
            Case 101
                Copy.Text = "Copyright : 2012                                             Please Wite "
            Case 102
                Copy.Text = "Copyright : 2012                                             Please Wite ."
            Case 103
                Copy.Text = "Copyright : 2012                                             Please Wite .."
            Case 104
                Copy.Text = "Copyright : 2012                                             Please Wite ..."
            Case 105
                Copy.Text = "Copyright : 2012                                             Please Wite "
            Case 106
                Copy.Text = "Copyright : 2012                                             Please Wite ."
            Case 107
                Copy.Text = "Copyright : 2012                                             Please Wite .."
            Case 108
                Copy.Text = "Copyright : 2012                                             Please Wite ..."
            Case 109
                Copy.Text = "Copyright : 2012                                             Please Wite "
            Case 110
                Copy.Text = "Copyright : 2012                                             Please Wite ."
            Case 111
                Copy.Text = "Copyright : 2012                                             Please Wite .."
            Case 112
                Copy.Text = "Copyright : 2012                                             Please Wite ..."
            Case 113
                Copy.Text = "Copyright : 2012                                             Please Wite "
            Case 114
                Copy.Text = "Copyright : 2012                                             Please Wite ."
            Case 115
                Copy.Text = "Copyright : 2012                                             Please Wite .."
            Case 116
                Copy.Text = "Copyright : 2012                                             Please Wite ..."
            Case 117
                Copy.Text = "Copyright : 2012                                             Please Wite ..."
                Timer1.Enabled = False
        End Select
        Selectd = Selectd + 1
    End Sub
    Dim Selectd As Integer, Big As Long
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        My.Computer.Audio.Play(Application.StartupPath & "\Type.wav")
    End Sub
    Private Const AW_BLEND = &H80000
    Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Int32, ByVal dwTime As Int32, ByVal dwFlags As Int32) As Boolean
    Dim winHide As Integer = &H10000
    Dim winBlend As Integer = &H80000

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Static a As Integer
        a = a + 1
        If a = 25 Then
            AnimateWindow(Me.Handle.ToInt32, CInt(3500), winHide Or winBlend)
            Me.Hide()
            Form1.Show()
            Timer2.Enabled = False
        End If
    End Sub
End Class

Project Homepage: