Something

Public Sub ViewChanged()
On Error Resume Next
Dim l_objObject As Object
    Screen.MousePointer = 11
    insOverview.Visible = False
    picStates.Visible = False
    picPoses.Visible = False
    picPreview.Visible = False
    scSprite.Visible = False
    m_splSidebar.Resize
    tsViews_Resize
    Select Case m_lngCurrentView
    Case View_Overview
        insOverview.Visible = True
        insOverview.InspectAny = False
        insOverview.ZOrder
        insOverview.Inspect SelectedSprite, "Sprite", True
    Case View_States
        StatesViewChanged
        picStates.Visible = True
        picStates.ZOrder
    Case View_Poses
        PosesViewChanged
        picPoses.Visible = True
        picPoses.ZOrder
    Case View_Script
        scSprite.Text = SelectedSprite.ScriptSource
        scSprite.Visible = True
        scSprite.ZOrder
    Case View_Data
        SelectedSprite.ReloadScript
        insOverview.Visible = True
        insOverview.InspectAny = True
        insOverview.ZOrder
        insOverview.ClearStack
        insOverview.AddToStack SelectedSprite, "Sprite"
        insOverview.Inspect SelectedSprite.Script, "Data", False, False, True
    Case View_Preview
        m_sngPreviewAngle = 0
        picPreview.Visible = True
        picPreview.ZOrder
        RedrawPreview
    Case Else
    End Select
    Screen.MousePointer = 0
End Sub