Toggle Dimension Name Macro

I've created a macro to toggle the "dimension names" on andoff which works except that I want it to update teh grpahics area.I have to rotate or pan the model view for it to show or unshow thedimension names. I've tried a "Redraw" but that doesn't work.

Any ideas?

Here's the code"

Dim swApp As Object
Dim swModel As Object
Dim bRet As Boolean
Dim bDimName As Boolean
Sub main()

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc

bDimName = swApp.GetUserPreferenceToggle(swShowDimensionNames)

If bDimName = False Then
bRet = swApp.SetUserPreferenceToggle(swShowDimensionNames, True)
Else
bRet = swApp.SetUserPreferenceToggle(swShowDimensionNames, False)
End If

End Sub
SolidworksApi macros