welcome.vb

Bug Game in Visual C++

        Me.bl5.Location = New System.Drawing.Point(352, 208)
        Me.bl5.Name = "bl5"
        Me.bl5.Size = New System.Drawing.Size(24, 24)
        Me.bl5.TabIndex = 17
        '
        'r4
        '
        Me.r4.BackColor = System.Drawing.Color.Red
        Me.r4.Location = New System.Drawing.Point(400, 160)
        Me.r4.Name = "r4"
        Me.r4.Size = New System.Drawing.Size(24, 24)
        Me.r4.TabIndex = 18
        '
        'r3
        '
        Me.r3.BackColor = System.Drawing.Color.Red
        Me.r3.Location = New System.Drawing.Point(400, 16)
        Me.r3.Name = "r3"
        Me.r3.Size = New System.Drawing.Size(24, 24)
        Me.r3.TabIndex = 19
        '
        'r7
        '
        Me.r7.BackColor = System.Drawing.Color.Red
        Me.r7.Location = New System.Drawing.Point(16, 208)
        Me.r7.Name = "r7"
        Me.r7.Size = New System.Drawing.Size(24, 24)
        Me.r7.TabIndex = 20
        '
        'r8
        '
        Me.r8.BackColor = System.Drawing.Color.Red
        Me.r8.Location = New System.Drawing.Point(16, 64)
        Me.r8.Name = "r8"
        Me.r8.Size = New System.Drawing.Size(24, 24)
        Me.r8.TabIndex = 21
        '
        'r2
        '
        Me.r2.BackColor = System.Drawing.Color.Red
        Me.r2.Location = New System.Drawing.Point(256, 16)
        Me.r2.Name = "r2"
        Me.r2.Size = New System.Drawing.Size(24, 24)
        Me.r2.TabIndex = 22
        '
        'r1
        '
        Me.r1.BackColor = System.Drawing.Color.Red
        Me.r1.Location = New System.Drawing.Point(112, 16)
        Me.r1.Name = "r1"
        Me.r1.Size = New System.Drawing.Size(24, 24)
        Me.r1.TabIndex = 23
        '
        'r5
        '
        Me.r5.BackColor = System.Drawing.Color.Red
        Me.r5.Location = New System.Drawing.Point(304, 208)
        Me.r5.Name = "r5"
        Me.r5.Size = New System.Drawing.Size(24, 24)
        Me.r5.TabIndex = 24
        '
        'r6
        '
        Me.r6.BackColor = System.Drawing.Color.Red
        Me.r6.Location = New System.Drawing.Point(160, 208)
        Me.r6.Name = "r6"
        Me.r6.Size = New System.Drawing.Size(24, 24)
        Me.r6.TabIndex = 25
        '
        'Timer1
        '
        Me.Timer1.Interval = 200
        '
        'Timer2
        '
        Me.Timer2.Interval = 300
        '
        'Timer3
        '
        Me.Timer3.Interval = 400
        '
        'lblname
        '
        Me.lblname.Font = New System.Drawing.Font("Modern No. 20", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblname.Location = New System.Drawing.Point(56, 120)
        Me.lblname.Name = "lblname"
        Me.lblname.Size = New System.Drawing.Size(136, 24)
        Me.lblname.TabIndex = 26
        Me.lblname.Text = "Player Name:"
        '
        'txtname
        '
        Me.txtname.Font = New System.Drawing.Font("Modern No. 20", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtname.Location = New System.Drawing.Point(192, 120)
        Me.txtname.Name = "txtname"
        Me.txtname.Size = New System.Drawing.Size(184, 28)
        Me.txtname.TabIndex = 27
        Me.txtname.Text = ""
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem3})
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 0
        Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2})
        Me.MenuItem1.Text = "&File"
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 0
        Me.MenuItem2.Text = "E&xit"
        '
        'Button1
        '
        Me.Button1.Font = New System.Drawing.Font("Modern No. 20", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Button1.Location = New System.Drawing.Point(232, 160)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(120, 32)
        Me.Button1.TabIndex = 28
        Me.Button1.Text = "Done"
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 1
        Me.MenuItem3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem4})
        Me.MenuItem3.Text = "Help"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 0
        Me.MenuItem4.Text = "How to Play"
        '
        'Welcome
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(440, 261)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.txtname)
        Me.Controls.Add(Me.lblname)
        Me.Controls.Add(Me.r6)
        Me.Controls.Add(Me.r5)
        Me.Controls.Add(Me.r1)
        Me.Controls.Add(Me.r2)
        Me.Controls.Add(Me.r8)
        Me.Controls.Add(Me.r7)
        Me.Controls.Add(Me.r3)
        Me.Controls.Add(Me.r4)
        Me.Controls.Add(Me.bl5)
        Me.Controls.Add(Me.bl8)
        Me.Controls.Add(Me.bl3)
        Me.Controls.Add(Me.bl7)
        Me.Controls.Add(Me.bl6)
        Me.Controls.Add(Me.bl2)
        Me.Controls.Add(Me.bl1)
        Me.Controls.Add(Me.bl4)
        Me.Controls.Add(Me.b4)
        Me.Controls.Add(Me.b5)
        Me.Controls.Add(Me.b6)
        Me.Controls.Add(Me.b7)
        Me.Controls.Add(Me.b3)
        Me.Controls.Add(Me.b8)
        Me.Controls.Add(Me.b2)
        Me.Controls.Add(Me.b1)
        Me.Controls.Add(Me.lblwelcome)
        Me.Menu = Me.MainMenu1
        Me.Name = "Welcome"
        Me.Text = "Welcome"
        Me.ResumeLayout(False)

    End Sub

#End Region

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

        If Me.b1.Visible = True Then Me.b1.Visible = False Else Me.b1.Visible = True
        If Me.b2.Visible = True Then Me.b2.Visible = False Else Me.b2.Visible = True
        If Me.b3.Visible = True Then Me.b3.Visible = False Else Me.b3.Visible = True
        If Me.b4.Visible = True Then Me.b4.Visible = False Else Me.b4.Visible = True
        If Me.b5.Visible = True Then Me.b5.Visible = False Else Me.b5.Visible = True
        If Me.b6.Visible = True Then Me.b6.Visible = False Else Me.b6.Visible = True
        If Me.b7.Visible = True Then Me.b7.Visible = False Else Me.b7.Visible = True
        If Me.b8.Visible = True Then Me.b8.Visible = False Else Me.b8.Visible = True


    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        If Me.bl1.Visible = True Then Me.bl1.Visible = False Else Me.bl1.Visible = True
        If Me.bl2.Visible = True Then Me.bl2.Visible = False Else Me.bl2.Visible = True
        If Me.bl3.Visible = True Then Me.bl3.Visible = False Else Me.bl3.Visible = True
        If Me.bl4.Visible = True Then Me.bl4.Visible = False Else Me.bl4.Visible = True
        If Me.bl5.Visible = True Then Me.bl5.Visible = False Else Me.bl5.Visible = True
        If Me.bl6.Visible = True Then Me.bl6.Visible = False Else Me.bl6.Visible = True
        If Me.bl7.Visible = True Then Me.bl7.Visible = False Else Me.bl7.Visible = True
        If Me.bl8.Visible = True Then Me.bl8.Visible = False Else Me.bl8.Visible = True

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Timer1.Enabled = True
        Me.Timer2.Enabled = True
        Me.Timer3.Enabled = True
        f0 = Me
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick

        If Me.r1.Visible = True Then Me.r1.Visible = False Else Me.r1.Visible = True
        If Me.r2.Visible = True Then Me.r2.Visible = False Else Me.r2.Visible = True
        If Me.r3.Visible = True Then Me.r3.Visible = False Else Me.r3.Visible = True
        If Me.r4.Visible = True Then Me.r4.Visible = False Else Me.r4.Visible = True
        If Me.r5.Visible = True Then Me.r5.Visible = False Else Me.r5.Visible = True
        If Me.r6.Visible = True Then Me.r6.Visible = False Else Me.r6.Visible = True
        If Me.r7.Visible = True Then Me.r7.Visible = False Else Me.r7.Visible = True
        If Me.r8.Visible = True Then Me.r8.Visible = False Else Me.r8.Visible = True


    End Sub

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        If MsgBox("Do you really want to exit?", MsgBoxStyle.YesNo, "Confirm with User") = MsgBoxResult.Yes Then End
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        f0.Hide()
        f1.Show()

    End Sub

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        f4.Show()
    End Sub
End Class