定义了 MoveType 枚举类型，为何但还是编译错误:用户定义类型未定义？

以下是模块代码，显示编译错误,请各位大神帮忙看看问题在哪？
' 移动记录类型的枚举
Public Enum moveType
    FirstRecord = 12
    PreviousRecord = 13
    NextRecord = 14
    LastRecord = 15
End Enum

' 函数名：MoveRecord
' 函数功能：控制表格记录前后移动
' 参数说明：moveType 移动记录类型（使用MoveType枚举）
'           vsf 表格控件
' 返回值：无
Public Sub MoveRecordA(moveType As moveType, ByVal vsf As VSFlexGrid)
    Dim H As Integer
    With vsf
        H = (.Height \ .CellHeight) - 2
        
        Select Case moveType
            Case moveType.FirstRecord
                If .Rows > .FixedRows Then
                    .Row = .FixedRows
                    .TopRow = .FixedRows
                End If
            Case moveType.PreviousRecord
                If .Row > .FixedRows Then
                    .Row = .Row - 1
                    If .Row - .TopRow < 0 Then
                        .TopRow = .TopRow - 1
                    End If
                End If
            Case moveType.NextRecord
                If .Row < .Rows - 1 Then
                    .Row = .Row + 1
                    If .Row - .TopRow > H - 1 Then
                        .TopRow = .TopRow + 1
                    End If
                End If
            Case moveType.LastRecord
                If .Rows > .FixedRows + 1 Then
                    .Row = .Rows - 1
                    If .Rows > H Then
                        .TopRow = .Rows - H
                    End If
                End If
        End Select
        
        ' 处理超出可见范围的情况
        If .Row - .TopRow < 0 Or .Row - .TopRow > H Then
            .TopRow = Abs(.Row - H)
        End If
    End With
End Sub