[RESOLVED] object doesnt support this property or method

[BrailleSchool]

I am currently getting an error on the highlighted line and cannot figure out why. Please advise.

The error is:

object doesnt support this property or method

form code:

Private Sub Form_Load()
    PageColorScheme Me
End Sub

module code:

Option Explicit
 
Public Sub PageColorScheme(frm As Form)
    Dim strBC As String, strFC As String
    Dim ctrl As Control
    
    With frm
        'background color, dark blue
        strBC = RGB(104, 127, 217)
        'foreground color, light blue
        strFC = RGB(214, 223, 247)
        
        'form background color
        .BackColor = strBC
        
        'control forecolors
        For Each ctrl In .Controls
            If TypeOf ctrl Is Shape Then
                [hl].BorderColor = strFC[/hl]
            End If
        Next
    End With
End Sub