VERSION 4.00
Begin VB.Form frmVBSamples 
   Caption         =   "VB Samples"
   ClientHeight    =   3735
   ClientLeft      =   1140
   ClientTop       =   2445
   ClientWidth     =   4455
   Height          =   4140
   Left            =   1080
   LinkTopic       =   "Form1"
   ScaleHeight     =   3735
   ScaleWidth      =   4455
   Top             =   2100
   Width           =   4575
   Begin VB.CommandButton cmdCancel 
      Caption         =   "Cancel"
      Height          =   375
      Left            =   2280
      TabIndex        =   3
      Top             =   3120
      Width           =   1575
   End
   Begin VB.CommandButton cmdExecute 
      Caption         =   "Execute"
      Height          =   375
      Left            =   600
      TabIndex        =   2
      Top             =   3120
      Width           =   1575
   End
   Begin VB.ListBox lstProcs 
      Height          =   2400
      Left            =   480
      TabIndex        =   0
      Top             =   480
      Width           =   3495
   End
   Begin VB.Label Label1 
      Caption         =   "Select the sample program to execute"
      Height          =   255
      Left            =   480
      TabIndex        =   1
      Top             =   240
      Width           =   3495
   End
Attribute VB_Name = "frmVBSamples"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
' -----------------------------------------------------------------------------
' Copyright (C) 1997 Visio Corporation. All rights reserved.
' You have a royalty-free right to use, modify, reproduce and distribute
' the Sample Application Files (and/or any modified version) in any way
' you find useful, provided that you agree that Visio has no warranty,
' obligations or liability for any Sample Application Files.
' -----------------------------------------------------------------------------
Option Explicit
Private Sub cmdCancel_Click()
    Unload Me
End Sub
Private Sub cmdExecute_Click()
    Dim SelectedProc As String
    If lstProcs.ListIndex <> -1 Then
        SelectedProc = lstProcs.List(lstProcs.ListIndex)
        Select Case SelectedProc
            Case "AddGeometry": AddGeometry
            Case "AddMenu": AddMenu
            Case "AddMenuItem": AddMenuItem
            Case "AddShortcutMenuItem": AddShortcutMenuItem
            Case "AddToolbarButton": AddToolbarButton
            Case "ChangeToolbarButtonIcon": ChangeToolbarButtonIcon
            Case "ChangeToolbarButtonPriority": ChangeToolbarButtonPriority
            Case "DeleteAccelItem": DeleteAccelItem
            Case "DeleteHierarchicalMenuItem": DeleteHierarchicalMenuItem
            Case "DeleteMenu": DeleteMenu
            Case "DeleteMenuItem": DeleteMenuItem
            Case "DeleteToolbarButton": DeleteToolbarButton
            Case "DropManyShapes": DropManyShapes
            Case "ExtractCustomProperties": ExtractCustomProperties
            Case "GetAllDocNames": GetAllDocNames
            Case "GetDocName": GetDocName
            Case "GetFormulaResults": GetFormulaResults
            Case "GetSelectedShapes": GetSelectedShapes
            Case "GetTheFormulas": GetTheFormulas
            Case "GlueControlHandle": GlueControlHandle
            Case "GlueSelectionHandle": GlueSelectionHandle
            Case "GlueToGuide": GlueToGuide
            Case "HelloWorld": HelloWorld
            Case "IterateGeometry": IterateGeometry
            Case "IteratePages": IteratePages
            Case "ListLayers": ListLayers
            Case "ListStyles": ListStyles
            Case "NoVisioUI": NoVisioUI
            Case "RestoreBuiltInUI": RestoreBuiltInUI
            Case "SetTheFormulas": SetTheFormulas
            Case "ShapeCounter": ShapeCounter
            Case "ShowPageConnections": ShowPageConnections
            Case "TurnOffGrid": TurnOffGrid
            Case "TurnOffRulers": TurnOffRulers
        End Select
    End If
End Sub
Private Sub Form_Load()
    lstProcs.AddItem ("AddGeometry")
    lstProcs.AddItem ("AddMenu")
    lstProcs.AddItem ("AddMenuItem")
    lstProcs.AddItem ("AddShortcutMenuItem")
    lstProcs.AddItem ("AddToolbarButton")
    lstProcs.AddItem ("ChangeToolbarButtonIcon")
    lstProcs.AddItem ("ChangeToolbarButtonPriority")
    lstProcs.AddItem ("DeleteAccelItem")
    lstProcs.AddItem ("DeleteHierarchicalMenuItem")
    lstProcs.AddItem ("DeleteMenu")
    lstProcs.AddItem ("DeleteMenuItem")
    lstProcs.AddItem ("DeleteToolbarButton")
    lstProcs.AddItem ("DropManyShapes")
    lstProcs.AddItem ("ExtractCustomProperties")
    lstProcs.AddItem ("GetAllDocNames")
    lstProcs.AddItem ("GetDocName")
    lstProcs.AddItem ("GetFormulaResults")
    lstProcs.AddItem ("GetSelectedShapes")
    lstProcs.AddItem ("GetTheFormulas")
    lstProcs.AddItem ("GlueControlHandle")
    lstProcs.AddItem ("GlueSelectionHandle")
    lstProcs.AddItem ("GlueToGuide")
    lstProcs.AddItem ("HelloWorld")
    lstProcs.AddItem ("IterateGeometry")
    lstProcs.AddItem ("IteratePages")
    lstProcs.AddItem ("ListLayers")
    lstProcs.AddItem ("ListStyles")
    lstProcs.AddItem ("NoVisioUI")
    lstProcs.AddItem ("RestoreBuiltInUI")
    lstProcs.AddItem ("SetTheFormulas")
    lstProcs.AddItem ("ShapeCounter")
    lstProcs.AddItem ("ShowPageConnections")
    lstProcs.AddItem ("TurnOffGrid")
    lstProcs.AddItem ("TurnOffRulers")
End Sub