售票系統

Private Sub Command1_Click(Index As Integer)

    If Command1(Index).BackColor <> vbRed Then
        Command1(Index).BackColor = vbRed
        If Command1(Index).Tag = "A" Then
            Label6 = Label6 + 1
            Label9 = Label9 + 6400
            If Hour(Now) >= 9 And Hour(Now) < 11 Then
                Label7 = Label9 * 0.5
            Else
                If Label6 >= 10 Then
                    Label7 = Label9 * 0.8
                ElseIf Label6 >= 5 Then
                    Label7 = Label9 * 0.9
                ElseIf Label6 < 5 Then
                    Label7 = Label9
                End If
            End If

        End If
        If Command1(Index).Tag = "B" Then
            Label6 = Label6 + 1
            Label9 = Label9 + 3200
            If Hour(Now) >= 9 And Hour(Now) < 11 Then
                Label7 = Label9 * 0.5
            Else
                If Label6 >= 10 Then
                    Label7 = (Label9 + 3200) * 0.8
                ElseIf Label6 >= 5 Then
                    Label7 = (Label9 + 3200) * 0.9
                ElseIf Label6 < 5 Then
                    Label7 = Label9
                End If
            End If
        End If

    Else
        If Command1(Index).Tag = "A" Then
            Command1(Index).BackColor = 16761024
            Label6 = Label6 - 1
            Label9 = Label9 - 6400
            If Hour(Now) >= 9 And Hour(Now) < 11 Then
                Label7 = Label9 * 0.5
            Else
                If Label6 >= 10 Then
                    Label7 = (Label9 - 6400) * 0.8
                ElseIf Label6 >= 5 Then
                    Label7 = (Label9 - 6400) * 0.9
                ElseIf Label6 < 5 Then
                    Label7 = Label9
                End If
            End If
        End If
        If Command1(Index).Tag = "B" Then
            Command1(Index).BackColor = 12648447
            Label6 = Label6 - 1
            Label9 = Label9 - 3200
            If Hour(Now) >= 9 And Hour(Now) < 11 Then
                Label7 = Label9 * 0.5
            Else
                If Label6 >= 10 Then
                    Label7 = (Label9 - 3200) * 0.8
                ElseIf Label6 >= 5 Then
                    Label7 = (Label9 - 3200) * 0.9
                ElseIf Label6 < 5 Then
                    Label7 = Label9
                End If
            End If
        End If
    End If
End Sub