Dim iW, iB As Integer
        iW = 0
        iB = 0
        If (Label1.Text = Label2.Text) And (Label2.Text = Label3.Text) And (Label3.Text = Label4.Text) And (Label4.Text = Label5.Text) Then
            Select Case Label1.Text
                Case "0"
                Case "1"
                    iW = iW + 1
                Case "2"
                    iB = iB + 1
            End Select
        End If
        L_Msg.Text = iW & "白線" & iB & "黑線"