Programming Tool Box/SIMS_2.iso/tool/various/ctdemo/ct_mdi.frm

Text File | 1995-02-26 | 28KB | 957 lines

VERSION 2.00
Begin MDIForm w_mdi_main
   Caption         =   "Component Toolbox (Standard Edition) Demonstration"
   ClientHeight    =   5100
   ClientLeft      =   630
   ClientTop       =   1680
   ClientWidth     =   8535
   Height          =   6030
   Icon            =   CT_MDI.FRX:0000
   Left            =   570
   LinkTopic       =   "MDIForm1"
   Top             =   810
   Width           =   8655
   WindowState     =   2  'Maximized
   Begin ctFRAME frame_menu
      Align           =   1  'Align Top
      BackColor       =   &H00C0C0C0&
      BorderColor     =   &H00000000&
      DistanceApart   =   5
      Height          =   405
      InnerBorder     =   1  'None
      InnerWidth      =   1
      Left            =   0
      OuterBorder     =   0  'Regular
      OuterWidth      =   1
      ShadowColor     =   &H00808080&
      ShowBottom      =   -1  'True
      ShowLeft        =   0   'False
      ShowRight       =   0   'False
      ShowTop         =   0   'False
      TabIndex        =   0
      Top             =   0
      Width           =   8535
      Begin ctCLIP bt_list
         ActivePicture   =   1
         BackColor       =   &H00FFFFFF&
         BorderColor     =   &H00000000&
         BorderType      =   1  'None
         Height          =   330
         Left            =   4470
         PicCols         =   3
         PicRows         =   1
         Picture         =   CT_MDI.FRX:0302
         RepeatRate      =   0
         ShadowColor     =   &H00808080&
         TabIndex        =   16
         Tag             =   "Picture List Box"
         Top             =   30
         Width           =   360
      End
      Begin ctCLIP bt_tips
         ActivePicture   =   1
         BackColor       =   &H00FFFFFF&
         BorderColor     =   &H00000000&
         BorderType      =   1  'None
         Height          =   330
         Left            =   510
         PicCols         =   3
         PicRows         =   1
         Picture         =   CT_MDI.FRX:0694
         RepeatRate      =   0
         ShadowColor     =   &H00808080&
         TabIndex        =   15
         Tag             =   "Popup Help Tips"
         Top             =   30
         Width           =   360
      End
      Begin ctCLIP bt_clock
         ActivePicture   =   1
         BackColor       =   &H00FFFFFF&
         BorderColor     =   &H00000000&
         BorderType      =   1  'None
         Height          =   330
         Left            =   3390
         PicCols         =   3
         PicRows         =   1
         Picture         =   CT_MDI.FRX:0A26
         RepeatRate      =   0
         ShadowColor     =   &H00808080&
         TabIndex        =   14
         Tag             =   "Clock Control"
         Top             =   30
         Width           =   360
      End
      Begin ctTIPS ctTips1
         Active          =   -1  'True
         AddTip          =   ""
         Alignment       =   1  'Center Under Control
         BackColor       =   &H0080FFFF&
         Delay           =   15
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         ForeColor       =   &H00000000&
         Left            =   8100
         TimerID         =   0
         Top             =   0
      End
      Begin ctCLIP bt_date
         ActivePicture   =   1
         BackColor       =   &H00FFFFFF&
         BorderColor     =   &H00000000&
         BorderType      =   1  'None
         Height          =   330
         Left            =   3030
         PicCols         =   3
         PicRows         =   1
         Picture         =   CT_MDI.FRX:0DB8
         RepeatRate      =   0
         ShadowColor     =   &H00808080&
         TabIndex        =   13
         Tag             =   "Calendar Control"
         Top             =   30
         Width           =   360
      End
      Begin ctCLIP bt_check
         ActivePicture   =   1
         BackColor       =   &H00FFFFFF&
         BorderColor     =   &H00000000&
         BorderType      =   1  'None
         Height          =   330
         Left            =   5190
         PicCols         =   3
         PicRows         =   1
         Picture         =   CT_MDI.FRX:114A
         RepeatRate      =   0
         ShadowColor     =   &H00808080&
         TabIndex        =   12
         Tag             =   "Enhanced Standard Controls"
         Top             =   30
         Width           =   360
      End
      Begin ctCLIP bt_color
         ActivePicture   =   1
         BackColor       =   &H00FFFFFF&
         BorderColor     =   &H00000000&
         BorderType      =   1  'None
         Height          =   330
         Left            =   5550
         PicCols         =   3
         PicRows         =   1
         Picture         =   CT_MDI.FRX:14DC
         RepeatRate      =   0
         ShadowColor     =   &H00808080&
         TabIndex        =   11
         Tag             =   "Common Dialogues"
         Top             =   30
         Width           =   360
      End
      Begin ctCLIP bt_push
         ActivePicture   =   1
         BackColor       =   &H00FFFFFF&
         BorderColor     =   &H00000000&
         BorderType      =   1  'None
         Height          =   330
         Left            =   2310
         PicCols         =   3
         PicRows         =   1
         Picture         =   CT_MDI.FRX:186E
         RepeatRate      =   0
         ShadowColor     =   &H00808080&
         TabIndex        =   10
         Tag             =   "Picture Push Buttons"
         Top             =   30
         Width           =   360
      End
      Begin ctCLIP bt_fold
         ActivePicture   =   1
         BackColor       =   &H00FFFFFF&
         BorderColor     =   &H00000000&
         BorderType      =   1  'None
         Height          =   330
         Left            =   150
         PicCols         =   3
         PicRows         =   1
         Picture         =   CT_MDI.FRX:1C00
         RepeatRate      =   0
         ShadowColor     =   &H00808080&
         TabIndex        =   9
         Tag             =   "File Folder Tabs"
         Top             =   30
         Width           =   360
      End
      Begin ctCLIP bt_slide
         ActivePicture   =   1
         BackColor       =   &H00FFFFFF&
         BorderColor     =   &H00000000&
         BorderType      =   1  'None
         Height          =   330
         Left            =   1230
         PicCols         =   3
         PicRows         =   1
         Picture         =   CT_MDI.FRX:1F92
         RepeatRate      =   0
         ShadowColor     =   &H00808080&
         TabIndex        =   8
         Tag             =   "Slider Control"
         Top             =   30
         Width           =   360
      End
      Begin ctCLIP bt_data
         ActivePicture   =   1
         BackColor       =   &H00FFFFFF&
         BorderColor     =   &H00000000&
         BorderType      =   1  'None
         Height          =   330
         Left            =   3750
         PicCols         =   3
         PicRows         =   1
         Picture         =   CT_MDI.FRX:2324
         RepeatRate      =   0
         ShadowColor     =   &H00808080&
         TabIndex        =   7
         Tag             =   "Data Navigation and Spin Buttons"
         Top             =   30
         Width           =   360
      End
      Begin ctCLIP bt_sched
         ActivePicture   =   1
         BackColor       =   &H00FFFFFF&
         BorderColor     =   &H00000000&
         BorderType      =   1  'None
         Height          =   330
         Left            =   4110
         PicCols         =   3
         PicRows         =   1
         Picture         =   CT_MDI.FRX:26B6
         RepeatRate      =   0
         ShadowColor     =   &H00808080&
         TabIndex        =   6
         Tag             =   "Sheduling Bar and Ruler"
         Top             =   30
         Width           =   360
      End
      Begin ctCLIP bt_move
         ActivePicture   =   1
         BackColor       =   &H00FFFFFF&
         BorderColor     =   &H00000000&
         BorderType      =   1  'None
         Height          =   330
         Left            =   870
         PicCols         =   3
         PicRows         =   1
         Picture         =   CT_MDI.FRX:2A48
         RepeatRate      =   0
         ShadowColor     =   &H00808080&
         TabIndex        =   5
         Tag             =   "Animated Push Buttons"
         Top             =   30
         Width           =   360
      End
      Begin ctCLIP bt_meter
         ActivePicture   =   1
         BackColor       =   &H00FFFFFF&
         BorderColor     =   &H00000000&
         BorderType      =   1  'None
         Height          =   330
         Left            =   2670
         PicCols         =   3
         PicRows         =   1
         Picture         =   CT_MDI.FRX:2DDA
         RepeatRate      =   0
         ShadowColor     =   &H00808080&
         TabIndex        =   4
         Tag             =   "Meter and Gauge Controls"
         Top             =   30
         Width           =   360
      End
      Begin ctCLIP bt_clip
         ActivePicture   =   1
         BackColor       =   &H00FFFFFF&
         BorderColor     =   &H00000000&
         BorderType      =   1  'None
         Height          =   330
         Left            =   1590
         PicCols         =   3
         PicRows         =   1
         Picture         =   CT_MDI.FRX:316C
         RepeatRate      =   0
         ShadowColor     =   &H00808080&
         TabIndex        =   3
         Tag             =   "Picture Clips"
         Top             =   30
         Width           =   360
      End
      Begin ctCLIP bt_text
         ActivePicture   =   1
         BackColor       =   &H00FFFFFF&
         BorderColor     =   &H00000000&
         BorderType      =   1  'None
         Height          =   330
         Left            =   4830
         PicCols         =   3
         PicRows         =   1
         Picture         =   CT_MDI.FRX:34FE
         RepeatRate      =   0
         ShadowColor     =   &H00808080&
         TabIndex        =   2
         Tag             =   "Text Control"
         Top             =   30
         Width           =   360
      End
      Begin ctCLIP bt_tabs
         ActivePicture   =   1
         BackColor       =   &H00FFFFFF&
         BorderColor     =   &H00000000&
         BorderType      =   1  'None
         Height          =   330
         Left            =   1950
         PicCols         =   3
         PicRows         =   1
         Picture         =   CT_MDI.FRX:3890
         RepeatRate      =   0
         ShadowColor     =   &H00808080&
         TabIndex        =   1
         Tag             =   "Page Tabs"
         Top             =   30
         Width           =   360
      End
   End
   Begin Menu m_file
      Caption         =   "&File"
      Begin Menu m_exit
         Caption         =   "E&xit"
      End
   End
   Begin Menu m_controls
      Caption         =   "&Controls"
      Begin Menu m_tabbedfolder
         Caption         =   "Tabbed Folder Control"
      End
      Begin Menu m_popuphelp
         Caption         =   "Popup Help Tips"
      End
      Begin Menu m_animate
         Caption         =   "Animated Buttons"
      End
      Begin Menu m_slider
         Caption         =   "Slider Control"
      End
      Begin Menu m_clip
         Caption         =   "Picture Clip Control"
      End
      Begin Menu m_tabs1
         Caption         =   "Multiple Page Tabs"
      End
      Begin Menu m_picturebutton
         Caption         =   "Picture Push Button"
      End
      Begin Menu m_meter
         Caption         =   "Meter Control"
      End
      Begin Menu m_calendar
         Caption         =   "Calendar Control"
      End
      Begin Menu m_clock
         Caption         =   "Clock Control"
      End
      Begin Menu m_data
         Caption         =   "Data and Spin Button"
      End
      Begin Menu m_sched
         Caption         =   "Scheduling Bar and Ruler"
      End
      Begin Menu m_piclist
         Caption         =   "Virtual Picture List Control"
      End
      Begin Menu m_text
         Caption         =   "Text Label Control"
      End
      Begin Menu m_checks
         Caption         =   "Enhanced Standard Controls"
      End
      Begin Menu m_common
         Caption         =   "Common Dialogues"
      End
   End
   Begin Menu m_options
      Caption         =   "&Options"
      Begin Menu m_toolbar
         Caption         =   "Toolbar"
         Checked         =   -1  'True
      End
   End
   Begin Menu m_melp
      Caption         =   "&Help"
      Begin Menu m_about
         Caption         =   "About Component Toolbox"
      End
      Begin Menu m_ordering
         Caption         =   "Ordering Information"
      End
   End
End
Sub bt_check_Click ()
   If (bt_clip <> BUTTON_DISABLE) Then
      Load w_check_demo
   End If
End Sub

Sub bt_check_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_check <> BUTTON_DISABLE) Then
      bt_check = BUTTON_DOWN
   End If
End Sub

Sub bt_check_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_check <> BUTTON_DISABLE) Then
      If (Button = 1) Then
         If X <= 0 Or X > bt_check.Width Or Y < 0 Or Y > bt_check.Height Then
            bt_check = BUTTON_UP
         Else
            bt_check = BUTTON_DOWN
         End If
      End If
   End If
End Sub

Sub bt_check_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_check <> BUTTON_DISABLE) Then
      bt_check = BUTTON_UP
   End If
End Sub

Sub bt_Clip_Click ()
   If (bt_clip <> BUTTON_DISABLE) Then
      Load w_clip_demo
   End If
End Sub

Sub bt_clip_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_clip <> BUTTON_DISABLE) Then
      bt_clip = BUTTON_DOWN
   End If
End Sub

Sub bt_clip_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_clip <> BUTTON_DISABLE) Then
      If (Button = 1) Then
         If X <= 0 Or X > bt_clip.Width Or Y < 0 Or Y > bt_clip.Height Then
            bt_clip = BUTTON_UP
         Else
            bt_clip = BUTTON_DOWN
         End If
      End If
   End If
End Sub

Sub bt_clip_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_clip <> BUTTON_DISABLE) Then
      bt_clip = BUTTON_UP
   End If
End Sub

Sub bt_clock_Click ()
   If (bt_clock <> BUTTON_DISABLE) Then
      Load w_clock_demo
   End If
End Sub

Sub bt_clock_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_clock <> BUTTON_DISABLE) Then
      bt_clock = BUTTON_DOWN
   End If
End Sub

Sub bt_clock_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_clock <> BUTTON_DISABLE) Then
      If (Button = 1) Then
         If X <= 0 Or X > bt_clock.Width Or Y < 0 Or Y > bt_clock.Height Then
            bt_clock = BUTTON_UP
         Else
            bt_clock = BUTTON_DOWN
         End If
      End If
   End If
End Sub

Sub bt_clock_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_clock <> BUTTON_DISABLE) Then
      bt_clock = BUTTON_UP
   End If
End Sub

Sub bt_color_Click ()
   If (bt_color <> BUTTON_DISABLE) Then
      Load w_common_dialog
   End If
End Sub

Sub bt_color_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_color <> BUTTON_DISABLE) Then
      bt_color = BUTTON_DOWN
   End If
End Sub

Sub bt_color_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_color <> BUTTON_DISABLE) Then
      If (Button = 1) Then
         If X <= 0 Or X > bt_color.Width Or Y < 0 Or Y > bt_color.Height Then
            bt_color = BUTTON_UP
         Else
            bt_color = BUTTON_DOWN
         End If
      End If
   End If
End Sub

Sub bt_color_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_color <> BUTTON_DISABLE) Then
      bt_color = BUTTON_UP
   End If
End Sub

Sub bt_data_Click ()
   If (bt_data <> BUTTON_DISABLE) Then
      Load w_data_demo
   End If
End Sub

Sub bt_data_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_data <> BUTTON_DISABLE) Then
      bt_data = BUTTON_DOWN
   End If
End Sub

Sub bt_data_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_data <> BUTTON_DISABLE) Then
      If (Button = 1) Then
         If X <= 0 Or X > bt_data.Width Or Y < 0 Or Y > bt_data.Height Then
            bt_data = BUTTON_UP
         Else
            bt_data = BUTTON_DOWN
         End If
      End If
   End If
End Sub

Sub bt_data_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_data <> BUTTON_DISABLE) Then
      bt_data = BUTTON_UP
   End If
End Sub

Sub bt_date_Click ()
   If (bt_date <> BUTTON_DISABLE) Then
      Load w_ctdate_demo
   End If
End Sub

Sub bt_date_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_date <> BUTTON_DISABLE) Then
      bt_date = BUTTON_DOWN
   End If
End Sub

Sub bt_date_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_date <> BUTTON_DISABLE) Then
      If (Button = 1) Then
         If X <= 0 Or X > bt_date.Width Or Y < 0 Or Y > bt_date.Height Then
            bt_date = BUTTON_UP
         Else
            bt_date = BUTTON_DOWN
         End If
      End If
   End If
End Sub

Sub bt_date_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_date <> BUTTON_DISABLE) Then
      bt_date = BUTTON_UP
   End If
End Sub

Sub bt_fold_Click ()
   If (bt_fold <> BUTTON_DISABLE) Then
      Load w_fold_demo
   End If
End Sub

Sub bt_fold_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_fold <> BUTTON_DISABLE) Then
      bt_fold = BUTTON_DOWN
   End If
End Sub

Sub bt_fold_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_fold <> BUTTON_DISABLE) Then
      If (Button = 1) Then
         If X <= 0 Or X > bt_fold.Width Or Y < 0 Or Y > bt_fold.Height Then
            bt_fold = BUTTON_UP
         Else
            bt_fold = BUTTON_DOWN
         End If
      End If
   End If
End Sub

Sub bt_fold_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_fold <> BUTTON_DISABLE) Then
      bt_fold = BUTTON_UP
   End If
End Sub

Sub bt_list_Click ()
   If (bt_list <> BUTTON_DISABLE) Then
      Load w_ctlist_demo
   End If
End Sub

Sub bt_list_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_list <> BUTTON_DISABLE) Then
      bt_list = BUTTON_DOWN
   End If
End Sub

Sub bt_list_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_list <> BUTTON_DISABLE) Then
      If (Button = 1) Then
         If X <= 0 Or X > bt_list.Width Or Y < 0 Or Y > bt_list.Height Then
            bt_list = BUTTON_UP
         Else
            bt_list = BUTTON_DOWN
         End If
      End If
   End If
End Sub

Sub bt_list_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_list <> BUTTON_DISABLE) Then
      bt_list = BUTTON_UP
   End If
End Sub

Sub bt_meter_Click ()
   If (bt_meter <> BUTTON_DISABLE) Then
      Load w_ctmeter
   End If
End Sub

Sub bt_meter_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_meter <> BUTTON_DISABLE) Then
      bt_meter = BUTTON_DOWN
   End If
End Sub

Sub bt_meter_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_meter <> BUTTON_DISABLE) Then
      If (Button = 1) Then
         If X <= 0 Or X > bt_meter.Width Or Y < 0 Or Y > bt_meter.Height Then
            bt_meter = BUTTON_UP
         Else
            bt_meter = BUTTON_DOWN
         End If
      End If
   End If
End Sub

Sub bt_meter_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_meter <> BUTTON_DISABLE) Then
      bt_meter = BUTTON_UP
   End If
End Sub

Sub bt_move_Click ()
   If (bt_move <> BUTTON_DISABLE) Then
      Load w_move_demo
   End If
End Sub

Sub bt_move_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_move <> BUTTON_DISABLE) Then
      bt_move = BUTTON_DOWN
   End If
End Sub

Sub bt_move_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_move <> BUTTON_DISABLE) Then
      If (Button = 1) Then
         If X <= 0 Or X > bt_move.Width Or Y < 0 Or Y > bt_move.Height Then
            bt_move = BUTTON_UP
         Else
            bt_move = BUTTON_DOWN
         End If
      End If
   End If
End Sub

Sub bt_move_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_move <> BUTTON_DISABLE) Then
      bt_move = BUTTON_UP
   End If
End Sub

Sub bt_push_Click ()
   If (bt_push <> BUTTON_DISABLE) Then
      Load w_push_demo
   End If
End Sub

Sub bt_push_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_push <> BUTTON_DISABLE) Then
      bt_push = BUTTON_DOWN
   End If
End Sub

Sub bt_push_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_push <> BUTTON_DISABLE) Then
      If (Button = 1) Then
         If X <= 0 Or X > bt_push.Width Or Y < 0 Or Y > bt_push.Height Then
            bt_push = BUTTON_UP
         Else
            bt_push = BUTTON_DOWN
         End If
      End If
   End If
End Sub

Sub bt_push_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_push <> BUTTON_DISABLE) Then
      bt_push = BUTTON_UP
   End If
End Sub

Sub bt_sched_Click ()
   If (bt_sched <> BUTTON_DISABLE) Then
      Load w_sched_demo
   End If
End Sub

Sub bt_sched_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_sched <> BUTTON_DISABLE) Then
      bt_sched = BUTTON_DOWN
   End If
End Sub

Sub bt_sched_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_sched <> BUTTON_DISABLE) Then
      If (Button = 1) Then
         If X <= 0 Or X > bt_sched.Width Or Y < 0 Or Y > bt_sched.Height Then
            bt_sched = BUTTON_UP
         Else
            bt_sched = BUTTON_DOWN
         End If
      End If
   End If
End Sub

Sub bt_sched_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_sched <> BUTTON_DISABLE) Then
      bt_sched = BUTTON_UP
   End If
End Sub

Sub bt_slide_Click ()
   If (bt_slide <> BUTTON_DISABLE) Then
      Load w_ctslide_demo
   End If
End Sub

Sub bt_slide_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_slide <> BUTTON_DISABLE) Then
      bt_slide = BUTTON_DOWN
   End If
End Sub

Sub bt_slide_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_slide <> BUTTON_DISABLE) Then
      If (Button = 1) Then
         If X <= 0 Or X > bt_slide.Width Or Y < 0 Or Y > bt_slide.Height Then
            bt_slide = BUTTON_UP
         Else
            bt_slide = BUTTON_DOWN
         End If
      End If
   End If
End Sub

Sub bt_slide_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_slide <> BUTTON_DISABLE) Then
      bt_slide = BUTTON_UP
   End If
End Sub

Sub bt_tabs_Click ()
   If (bt_tabs <> BUTTON_DISABLE) Then
      Load w_tabs_prop
   End If
End Sub

Sub bt_tabs_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_tabs <> BUTTON_DISABLE) Then
      bt_tabs = BUTTON_DOWN
   End If
End Sub

Sub bt_tabs_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_tabs <> BUTTON_DISABLE) Then
      If (Button = 1) Then
         If X <= 0 Or X > bt_tabs.Width Or Y < 0 Or Y > bt_tabs.Height Then
            bt_tabs = BUTTON_UP
         Else
            bt_tabs = BUTTON_DOWN
         End If
      End If
   End If
End Sub

Sub bt_tabs_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_tabs <> BUTTON_DISABLE) Then
      bt_tabs = BUTTON_UP
   End If
End Sub

Sub bt_text_Click ()
   If (bt_text <> BUTTON_DISABLE) Then
      Load w_text_demo
   End If
End Sub

Sub bt_text_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_text <> BUTTON_DISABLE) Then
      bt_text = BUTTON_DOWN
   End If
End Sub

Sub bt_text_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_text <> BUTTON_DISABLE) Then
      If (Button = 1) Then
         If X <= 0 Or X > bt_text.Width Or Y < 0 Or Y > bt_text.Height Then
            bt_text = BUTTON_UP
         Else
            bt_text = BUTTON_DOWN
         End If
      End If
   End If
End Sub

Sub bt_text_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_text <> BUTTON_DISABLE) Then
      bt_text = BUTTON_UP
   End If
End Sub

Sub bt_tips_Click ()
   If (bt_tips <> BUTTON_DISABLE) Then
      Load w_cttips_demo
   End If
End Sub

Sub bt_tips_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_tips <> BUTTON_DISABLE) Then
      bt_tips = BUTTON_DOWN
   End If
End Sub

Sub bt_tips_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_tips <> BUTTON_DISABLE) Then
      If (Button = 1) Then
         If X <= 0 Or X > bt_tips.Width Or Y < 0 Or Y > bt_tips.Height Then
            bt_tips = BUTTON_UP
         Else
            bt_tips = BUTTON_DOWN
         End If
      End If
   End If
End Sub

Sub bt_tips_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (bt_tips <> BUTTON_DISABLE) Then
      bt_tips = BUTTON_UP
   End If
End Sub

Sub m_about_Click ()
   w_about.Show MODAL
End Sub

Sub m_animate_Click ()
   Load w_move_demo
End Sub

Sub m_calendar_Click ()
   Load w_ctdate_demo
End Sub

Sub m_checks_Click ()
   Load w_check_demo
End Sub

Sub m_clip_Click ()
   Load w_clip_demo
End Sub

Sub m_clock_Click ()
   Load w_clock_demo
End Sub

Sub m_common_Click ()
   Load w_common_dialog
End Sub

Sub m_data_Click ()
   Load w_data_demo
End Sub

Sub m_exit_Click ()
   If MsgBox("Do you really want to exit this program", MB_YESNO + MB_ICONQUESTION, "Exit Toolbox Demo") = IDYES Then
      End
   End If
End Sub

Sub m_meter_Click ()
   Load w_ctmeter
End Sub

Sub m_ordering_Click ()
   w_order.Show MODAL
End Sub

Sub m_piclist_Click ()
   Load w_ctlist_demo
End Sub

Sub m_picturebutton_Click ()
   Load w_push_demo
End Sub

Sub m_sched_Click ()
   Load w_sched_demo
End Sub

Sub m_slider_Click ()
   Load w_ctslide_demo
End Sub

Sub m_tabbedfolder_Click ()
   Load w_fold_demo
End Sub

Sub m_tabs1_Click ()
   Load w_tabs_prop
End Sub

Sub m_text_Click ()
   Load w_text_demo
End Sub

Sub m_toolbar_Click ()
   m_toolbar.Checked = Not m_toolbar.Checked
   frame_menu.Visible = m_toolbar.Checked
End Sub