I had developed a program using vba. It was executed successfully in Microstation V8. But in Microstation v8i[Select series 1] - version 08.11.07.171, the same program doesn't work and there is no compile error/runtime error also. How to fix this? Kindly clarify.
The coding snippet is given below for your reference.
clsTrackZoom
Option ExplicitImplements IViewUpdateEventsPrivate Sub IViewUpdateEvents_AfterRedraw(TheViews() As View, TheModels() As ModelReference, ByVal DrawMode As MsdDrawingMode) updateZoomEnd SubPrivate Sub IViewUpdateEvents_BeforeRedraw(TheViews() As View, TheModels() As ModelReference, ByVal DrawMode As MsdDrawingMode)
End Sub
''------------------------------------------------------------------------------------------------------------
modMain
Public Sub RescaleAnnotation() Dim objc As clsTrackZoom Set objc = New clsTrackZoom AddViewUpdateEventsHandler objcEnd Sub
Public Function updateZoom() MsgBox "view updated"End Function