home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / kcontop / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-08-19  |  2.3 KB  |  75 lines
  1. VERSION 5.00
  2. Object = "{F67B88F4-37EE-11D2-A2AB-00600804B78C}#4.0#0"; "KC_OnTop.ocx"
  3. Begin VB.Form Form1 
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "KC_OnTop sample project"
  6.    ClientHeight    =   1800
  7.    ClientLeft      =   10290
  8.    ClientTop       =   8490
  9.    ClientWidth     =   3480
  10.    Icon            =   "Form1.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   1800
  15.    ScaleWidth      =   3480
  16.    ShowInTaskbar   =   0   'False
  17.    Begin VB.CommandButton Command2 
  18.       Caption         =   "Not On Top"
  19.       Height          =   375
  20.       Left            =   1800
  21.       TabIndex        =   1
  22.       Top             =   240
  23.       Width           =   1095
  24.    End
  25.    Begin VB.CommandButton Command1 
  26.       Caption         =   "On Top"
  27.       Height          =   375
  28.       Left            =   600
  29.       TabIndex        =   0
  30.       Top             =   240
  31.       Width           =   1095
  32.    End
  33.    Begin OnTop_OCX.KC_OnTop KC_OnTop1 
  34.       Left            =   120
  35.       Top             =   120
  36.       _ExtentX        =   847
  37.       _ExtentY        =   873
  38.    End
  39.    Begin VB.Label Label2 
  40.       Alignment       =   2  'Center
  41.       Caption         =   "http://home.ptdprolog.net/~kirsch"
  42.       ForeColor       =   &H00FF0000&
  43.       Height          =   255
  44.       Left            =   480
  45.       MouseIcon       =   "Form1.frx":0442
  46.       MousePointer    =   99  'Custom
  47.       TabIndex        =   3
  48.       Top             =   1440
  49.       Width           =   2535
  50.    End
  51.    Begin VB.Label Label1 
  52.       Alignment       =   2  'Center
  53.       Caption         =   "Click a button above to test the KC_OnTop control!"
  54.       Height          =   375
  55.       Left            =   600
  56.       TabIndex        =   2
  57.       Top             =   840
  58.       Width           =   2220
  59.    End
  60. Attribute VB_Name = "Form1"
  61. Attribute VB_GlobalNameSpace = False
  62. Attribute VB_Creatable = False
  63. Attribute VB_PredeclaredId = True
  64. Attribute VB_Exposed = False
  65. Option Explicit
  66. Private Sub Command1_Click()
  67.     KC_OnTop1.PlaceOnTop ', True
  68. End Sub
  69. Private Sub Command2_Click()
  70.     KC_OnTop1.PlaceOnTop False
  71. End Sub
  72. Private Sub Label2_Click()
  73.     Shell "start http://home.ptdprolog.net/~kirsch"
  74. End Sub
  75.