With Label2
                    .BackColor = .ForeColor
                    .ForeColor = Color.White
                    Application.DoEvents()
                    Label2_Click(Nothing, Nothing)
                    Sleep(500)
                    .BackColor = Color.White
                End With