home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code2 / t_bar_ww / form2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-05-06  |  2.4 KB  |  84 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    ClientHeight    =   4020
  6.    ClientLeft      =   1455
  7.    ClientTop       =   1620
  8.    ClientWidth     =   3030
  9.    ControlBox      =   0   'False
  10.    Height          =   4425
  11.    Left            =   1395
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4020
  16.    ScaleWidth      =   3030
  17.    Top             =   1275
  18.    Width           =   3150
  19.    Begin CheckBox Check2 
  20.       BackColor       =   &H00C0C0C0&
  21.       Caption         =   "TopMost"
  22.       Height          =   375
  23.       Left            =   720
  24.       TabIndex        =   3
  25.       Top             =   2640
  26.       Width           =   1695
  27.    End
  28.    Begin CheckBox Check1 
  29.       BackColor       =   &H00C0C0C0&
  30.       Caption         =   "ForceActive"
  31.       Height          =   375
  32.       Left            =   720
  33.       TabIndex        =   2
  34.       Top             =   2160
  35.       Width           =   1575
  36.    End
  37.    Begin CommandButton Command1 
  38.       Caption         =   "DoNothing"
  39.       Height          =   495
  40.       Left            =   120
  41.       TabIndex        =   1
  42.       Top             =   1560
  43.       Width           =   2775
  44.    End
  45.    Begin TBar TBar1 
  46.       ForceActive     =   0   'False
  47.       Height          =   135
  48.       Left            =   0
  49.       Top             =   0
  50.       TopMost         =   0   'False
  51.       Width           =   3030
  52.    End
  53.    Begin Label Label2 
  54.       Alignment       =   2  'Center
  55.       BackColor       =   &H00C0C0C0&
  56.       Caption         =   "Copyright (c) 1994 W. Washington"
  57.       Height          =   255
  58.       Left            =   0
  59.       TabIndex        =   4
  60.       Top             =   3720
  61.       Width           =   3015
  62.    End
  63.    Begin Label Label1 
  64.       Alignment       =   2  'Center
  65.       BorderStyle     =   1  'Fixed Single
  66.       Caption         =   "TBar Custom Control Demo"
  67.       Height          =   255
  68.       Left            =   120
  69.       TabIndex        =   0
  70.       Top             =   240
  71.       Width           =   2775
  72.       WordWrap        =   -1  'True
  73.    End
  74. Sub Check1_Click ()
  75.     TBar1.ForceActive = Check1
  76. End Sub
  77. Sub Check2_Click ()
  78.     TBar1.TopMost = Check2
  79. End Sub
  80. Sub TBar1_Click ()
  81.     MsgBox "Bye!"
  82.     End
  83. End Sub
  84.