Private Sub OptOut_Click(Index As Integer)
    
    On Error GoTo Err_End
    
    If Not m_blnConnectStatus Then Exit Sub
    
    If Not blnBusy Then
        Call ChangeMirror(Index)
    Else
        OptOut(m_intMirrorStatus).Value = True
    End IfErr_End:End Sub