Can this code be reduced?

[debbie_82]

Private Sub SetSingle(bEnabled As Boolean)
    Dim iCtr As Integer
    grdSingle.Enabled = bEnabled
    If bEnabled = False Then
        For iCtr = 0 To btnSingle.Count - 1
            btnSingle(iCtr).Enabled = False
        Next iCtr
    Else
        If iMode = enumEDIT_FILTER Or iMode = enumVIEW_FILTER Then
            If FilterList.Filters(FilterList.Selected).GetSCCount = 0 Then
                btnSingle(2).Enabled = True
                btnSingle(1).Enabled = False
                btnSingle(0).Enabled = False
            ElseIf FilterList.Filters(FilterList.Selected).GetSCCount = 1 Then
                btnSingle(0).Enabled = False
                btnSingle(1).Enabled = True
                btnSingle(2).Enabled = True
            Else
                btnSingle(2).Enabled = True
                btnSingle(1).Enabled = True
                btnSingle(0).Enabled = True
            End If
        Else
            If grdSingle.Rows = 1 Then
                btnSingle(2).Enabled = True
                btnSingle(1).Enabled = False
                btnSingle(0).Enabled = False
            ElseIf grdSingle.Rows = 2 Then
                btnSingle(0).Enabled = False
                btnSingle(1).Enabled = True
                btnSingle(2).Enabled = True
            Else
                btnSingle(2).Enabled = True
                btnSingle(1).Enabled = True
                btnSingle(0).Enabled = True
            End If
        End If
    End If
End Sub