Bullets

    Private Sub timBulletMover_Tick(sender As Object, e As EventArgs) Handles timBulletMover.Tick

        If intBullet1 = 2 Then
            picBullet1.Top = picBullet1.Top - intBulletSpeed
        End If

        If intBullet2 = 2 Then
            picBullet2.Top = picBullet2.Top - intBulletSpeed
        End If

        If intBullet3 = 2 Then
            picBullet3.Top = picBullet3.Top - intBulletSpeed
        End If

        If intBullet4 = 2 Then
            picBullet4.Top = picBullet4.Top - intBulletSpeed
        End If

        If intBullet5 = 2 Then
            picBullet5.Top = picBullet5.Top - intBulletSpeed
        End If

        If intBullet6 = 2 Then
            picBullet6.Top = picBullet6.Top - intBulletSpeed
        End If

        If intBullet7 = 2 Then
            picBullet7.Top = picBullet7.Top - intBulletSpeed
        End If

        If intBullet8 = 2 Then
            picBullet8.Top = picBullet8.Top - intBulletSpeed
        End If

        If intBullet9 = 2 Then
            picBullet9.Top = picBullet9.Top - intBulletSpeed
        End If

        If intBullet10 = 2 Then
            picBullet10.Top = picBullet10.Top - intBulletSpeed
        End If

        If intBullet11 = 2 Then
            picBullet11.Top = picBullet11.Top - intBulletSpeed
        End If

        If intBullet12 = 2 Then
            picBullet12.Top = picBullet12.Top - intBulletSpeed
        End If

        If intBullet13 = 2 Then
            picBullet13.Top = picBullet13.Top - intBulletSpeed
        End If

        If intBullet14 = 2 Then
            picBullet14.Top = picBullet14.Top - intBulletSpeed
        End If

        If intBullet15 = 2 Then
            picBullet15.Top = picBullet15.Top - intBulletSpeed
        End If

    End Sub

    Private Sub timBulletChecker_Tick(sender As Object, e As EventArgs) Handles timBulletChecker.Tick

        If picBullet1.Visible = False Then
            intBullet1 = 1
        End If

        If picBullet2.Visible = False Then
            intBullet2 = 1
        End If

        If picBullet3.Visible = False Then
            intBullet3 = 1
        End If

        If picBullet4.Visible = False Then
            intBullet4 = 1
        End If

        If picBullet5.Visible = False Then
            intBullet5 = 1
        End If

        If picBullet6.Visible = False Then
            intBullet6 = 1
        End If

        If picBullet7.Visible = False Then
            intBullet7 = 1
        End If

        If picBullet8.Visible = False Then
            intBullet8 = 1
        End If

        If picBullet9.Visible = False Then
            intBullet9 = 1
        End If

        If picBullet10.Visible = False Then
            intBullet10 = 1
        End If

        If picBullet11.Visible = False Then
            intBullet11 = 1
        End If

        If picBullet12.Visible = False Then
            intBullet12 = 1
        End If

        If picBullet13.Visible = False Then
            intBullet13 = 1
        End If

        If picBullet14.Visible = False Then
            intBullet14 = 1
        End If

        If picBullet15.Visible = False Then
            intBullet15 = 1
        End If


    End Sub

    Private Sub timFireSpeed_Tick(sender As Object, e As EventArgs) Handles timFireSpeed.Tick

        If intBullet1 = 1 Then
            intBullet1 = 2
            picBullet1.Visible = True
        ElseIf intBullet2 = 1 Then
            intBullet2 = 2
            picBullet2.Visible = True
        ElseIf intBullet3 = 1 Then
            intBullet3 = 2
            picBullet3.Visible = True
        ElseIf intBullet4 = 1 Then
            intBullet4 = 2
            picBullet4.Visible = True
        ElseIf intBullet5 = 1 Then
            intBullet5 = 2
            picBullet5.Visible = True
        ElseIf intBullet6 = 1 Then
            intBullet6 = 2
            picBullet6.Visible = True
        ElseIf intBullet7 = 1 Then
            intBullet7 = 2
            picBullet7.Visible = True
        ElseIf intBullet8 = 1 Then
            intBullet8 = 2
            picBullet8.Visible = True
        ElseIf intBullet9 = 1 Then
            intBullet9 = 2
            picBullet9.Visible = True
        ElseIf intBullet10 = 1 Then
            intBullet10 = 2
            picBullet10.Visible = True
        ElseIf intBullet11 = 1 Then
            intBullet11 = 2
            picBullet11.Visible = True
        ElseIf intBullet12 = 1 Then
            intBullet12 = 2
            picBullet12.Visible = True
        ElseIf intBullet13 = 1 Then
            intBullet13 = 2
            picBullet13.Visible = True
        ElseIf intBullet14 = 1 Then
            intBullet14 = 2
            picBullet14.Visible = True
        ElseIf intBullet15 = 1 Then
            intBullet15 = 2
            picBullet15.Visible = True
        End If

    End Sub

    Private Sub timInactiveBulletMover_Tick(sender As Object, e As EventArgs) Handles timInactiveBulletMover.Tick

        If intBullet1 = 1 Then
            picBullet1.Top = picPlayer.Top
            picBullet1.Left = picPlayer.Left + 5
        End If

        If intBullet2 = 1 Then
            picBullet2.Top = picPlayer.Top
            picBullet2.Left = picPlayer.Left + 5
        End If

        If intBullet3 = 1 Then
            picBullet3.Top = picPlayer.Top
            picBullet3.Left = picPlayer.Left + 5
        End If

        If intBullet4 = 1 Then
            picBullet4.Top = picPlayer.Top
            picBullet4.Left = picPlayer.Left + 5
        End If

        If intBullet5 = 1 Then
            picBullet5.Top = picPlayer.Top
            picBullet5.Left = picPlayer.Left + 5
        End If

        If intBullet6 = 1 Then
            picBullet6.Top = picPlayer.Top
            picBullet6.Left = picPlayer.Left + 5
        End If

        If intBullet7 = 1 Then
            picBullet7.Top = picPlayer.Top
            picBullet7.Left = picPlayer.Left + 5
        End If

        If intBullet8 = 1 Then
            picBullet8.Top = picPlayer.Top
            picBullet8.Left = picPlayer.Left + 5
        End If

        If intBullet9 = 1 Then
            picBullet9.Top = picPlayer.Top
            picBullet9.Left = picPlayer.Left + 5
        End If

        If intBullet10 = 1 Then
            picBullet10.Top = picPlayer.Top
            picBullet10.Left = picPlayer.Left + 5
        End If

        If intBullet11 = 1 Then
            picBullet11.Top = picPlayer.Top
            picBullet11.Left = picPlayer.Left + 5
        End If

        If intBullet12 = 1 Then
            picBullet12.Top = picPlayer.Top
            picBullet12.Left = picPlayer.Left + 5
        End If

        If intBullet13 = 1 Then
            picBullet13.Top = picPlayer.Top
            picBullet13.Left = picPlayer.Left + 5
        End If

        If intBullet14 = 1 Then
            picBullet14.Top = picPlayer.Top
            picBullet14.Left = picPlayer.Left + 5
        End If

        If intBullet15 = 1 Then
            picBullet15.Top = picPlayer.Top
            picBullet15.Left = picPlayer.Left + 5
        End If

    End Sub