objectmodul

Private Sub Application_Startup()
' Get the NavigationPane object for the
' currently displayed Explorer object.
Set objPane = Application.ActiveExplorer.NavigationPane
End Sub

Private Sub objPane_ModuleSwitch(ByVal CurrentModule As NavigationModule)
' Check if the currently selected navigation module
' has changed.
If Not (CurrentModule Is objPane.CurrentModule) Then
' Set the IsCollapsed property to
' ensure that the Navigation Pane
' is visible.
If Not (objPane Is Nothing) Then
objPane.IsCollapsed = False
End If
End If
End Sub