DynamicMap の使用方法

Public Sub subDynamicDisplay()
    Dim pMxDocument As IMxDocument
    Set pMxDocument = ThisDocument
    
    Dim pDynamicMap As IDynamicMap
    Set pDynamicMap = pMxDocument.FocusMap
    
    pDynamicMap.DynamicDrawRate = 10
    pDynamicMap.DynamicMapEnabled = True
    pDynamicMap.UseSubPixelRendering = False

End Sub