home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / swbtop / form2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-02-08  |  1.3 KB  |  42 lines
  1. VERSION 5.00
  2. Object = "{3AF740FA-BF7F-11D2-8C26-444553540001}#2.0#0"; "SWBTopForm.ocx"
  3. Begin VB.Form Form2 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Form2"
  6.    ClientHeight    =   1740
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   3180
  10.    Icon            =   "Form2.frx":0000
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   1740
  15.    ScaleWidth      =   3180
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   1  'CenterOwner
  18.    Begin SWBTopFormCtl.SWBTopForm SWBTopForm1 
  19.       Left            =   2610
  20.       Top             =   1350
  21.       _ExtentX        =   423
  22.       _ExtentY        =   423
  23.    End
  24.    Begin VB.CheckBox Check1 
  25.       Caption         =   "Keep On Top"
  26.       Height          =   255
  27.       Left            =   900
  28.       TabIndex        =   0
  29.       Top             =   660
  30.       Value           =   1  'Checked
  31.       Width           =   1545
  32.    End
  33. Attribute VB_Name = "Form2"
  34. Attribute VB_GlobalNameSpace = False
  35. Attribute VB_Creatable = False
  36. Attribute VB_PredeclaredId = True
  37. Attribute VB_Exposed = False
  38. Option Explicit
  39. Private Sub Check1_Click()
  40.     SWBTopForm1.Enabled = (Check1.Value = vbChecked)
  41. End Sub
  42.