在多个相同控件里，某一个控件变为红色后让其锁定，也就是当鼠标点击另一个控件时，已成为红色的不再改变成白色。请帮忙修改如下代码：
Private CurrenNum As Integer
Private Sub Command1_Click()
Picture2(i).BackColor = vbRed
End Sub

Private Sub Form_Load()
   CurrenNum = 0
   Call Picture2_Click(CurrenNum)
End Sub

Private Sub Label1_Click()

If CurrenNum < 35 Then
   CurrenNum = CurrenNum + 1
   Call Picture2_Click(CurrenNum)
End If
  
End Sub

Private Sub Label2_Click()

If CurrenNum > 0 Then
   CurrenNum = CurrenNum - 1
   Call Picture2_Click(CurrenNum)
End If

End Sub

Private Sub Picture2_Click(Index As Integer)

   Call 还原背景为白色
 
   Picture2(Index).Cls
   Picture2(Index).BackColor = &H80000003
   If i + 1 < 10 Then
      Picture2(Index).Print " " & CStr(Index + 1)
   Else
      Picture2(Index).Print CStr(Index + 1)
   End If
 
    CurrenNum = Index
 
End Sub

Private Sub 还原背景为白色()
Dim i As Integer
For i = 0 To 35
   Picture2(i).BackColor = vbWhite
   Picture2(i).Cls
   Picture2(i).Print CStr(i + 1)
Next i
End Sub