home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / design / mstips / tipdemo1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-02-27  |  1.8 KB  |  63 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   2310
  5.    ClientLeft      =   1305
  6.    ClientTop       =   1470
  7.    ClientWidth     =   3675
  8.    Height          =   2715
  9.    Left            =   1245
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2310
  12.    ScaleWidth      =   3675
  13.    Top             =   1125
  14.    Width           =   3795
  15.    Begin CheckBox Check1 
  16.       Caption         =   "Check1"
  17.       Height          =   255
  18.       HelpContextID   =   1004
  19.       Left            =   2340
  20.       TabIndex        =   3
  21.       Tag             =   "This is a really big Check Box with some really long ToolTips"
  22.       Top             =   600
  23.       Width           =   1215
  24.    End
  25.    Begin ListBox List1 
  26.       Height          =   1590
  27.       HelpContextID   =   1002
  28.       Left            =   120
  29.       TabIndex        =   2
  30.       Top             =   600
  31.       Width           =   2115
  32.    End
  33.    Begin CommandButton Command1 
  34.       Caption         =   "Command1"
  35.       Height          =   375
  36.       HelpContextID   =   1003
  37.       Left            =   2340
  38.       TabIndex        =   1
  39.       Tag             =   "This is a Command Button"
  40.       Top             =   120
  41.       Width           =   1215
  42.    End
  43.    Begin TextBox Text1 
  44.       Height          =   375
  45.       HelpContextID   =   1001
  46.       Left            =   120
  47.       TabIndex        =   0
  48.       Text            =   "Text1"
  49.       Top             =   120
  50.       Width           =   2115
  51.    End
  52. Option Explicit
  53. 'See comments in TIPDEMO.BAS
  54. Sub Form_Activate ()
  55. Call dutip_SetTipForm(Me)
  56. End Sub
  57. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  58. If UnloadMode <> 1 Then  'via code
  59.    Cancel = True
  60.    Call EndMain
  61. End If
  62. End Sub
  63.