If swApp.GetUserPreferenceDoubleValue(swUserPreferenceDoubleValue_e.swViewTransitionHideShowComponent) = 0 Then
        swApp.SetUserPreferenceDoubleValue swUserPreferenceDoubleValue_e.swViewTransitionHideShowComponent, 0.5
    Else
        swApp.SetUserPreferenceDoubleValue swUserPreferenceDoubleValue_e.swViewTransitionHideShowComponent, 0
    End If
    Debug.Print swApp.GetUserPreferenceDoubleValue(swUserPreferenceDoubleValue_e.swViewTransitionHideShowComponent)