Private Sub Label1_DblClick(Index As Integer)
  Label1(Index).ForeColor = IIf(Label1(Index).ForeColor = vbRed, vbBlack, vbRed)
End Sub

[code=c]
Private Sub Label1_Click(Index As Integer)

    Dim i As Integer

    For i = 0 To 9
        If i <> Index Then
            Label1(i).ForeColor = vbBlack
        End If
    Next
    
    If Label1(Index).ForeColor = vbRed Then
        Label1(Index).ForeColor = vbBlack
    Else
        Label1(Index).ForeColor = vbRed
    End If
    
End Sub

[/code]

双击一样处理。

我觉得，1楼的代码简洁，但是不容易看懂，尤其对初学者。
        2楼代码容易看懂，但有些语句，似乎不是实现楼主要求功能的。
所以我觉得按楼主的设想，代码可以写为：

Private Sub Label1_DblClick(Index As Integer)
  Label1(Index).ForeColor = vbRed
End Sub

Private Sub Label1_Click(Index As Integer)
        Label1(Index).ForeColor = vbBlack
End Sub