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