home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wg_lib / kbcfrm.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  2.0 KB  |  69 lines
  1. VERSION 2.00
  2. Begin Form Kbcfrm 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Kb Status Indicator"
  5.    ClientHeight    =   4020
  6.    ClientLeft      =   1155
  7.    ClientTop       =   1755
  8.    ClientWidth     =   7365
  9.    Height          =   4425
  10.    Left            =   1095
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form2"
  13.    ScaleHeight     =   4020
  14.    ScaleWidth      =   7365
  15.    Top             =   1410
  16.    Width           =   7485
  17.    Begin KBStat1 KBStat1 
  18.       BackColor       =   &H00C0C0C0&
  19.       Height          =   765
  20.       Index           =   0
  21.       Left            =   150
  22.       Style           =   0  '3D Convex
  23.       Top             =   3120
  24.       Width           =   7095
  25.    End
  26.    Begin Clock1 Clock1 
  27.       Alarm_Hr        =   0
  28.       Alarm_Min       =   0
  29.       AlarmEnable     =   0   'False
  30.       BackColor       =   &H00000000&
  31.       FontName        =   "MS Sans Serif"
  32.       FontSize        =   9.75
  33.       ForeColor       =   &H000000FF&
  34.       Height          =   390
  35.       HideSecs        =   0   'False
  36.       Left            =   5445
  37.       TimeFormat      =   0  '24 Hour
  38.       TimeLabel       =   0  'AM/PM
  39.       TimerMode       =   0   'False
  40.       TimeZone        =   0
  41.       Top             =   2535
  42.       Width           =   1710
  43.    End
  44.    Begin TextBox Text1 
  45.       BackColor       =   &H00FFFFFF&
  46.       FontBold        =   -1  'True
  47.       FontItalic      =   0   'False
  48.       FontName        =   "MS Sans Serif"
  49.       FontSize        =   9.75
  50.       FontStrikethru  =   0   'False
  51.       FontUnderline   =   0   'False
  52.       Height          =   1710
  53.       Left            =   285
  54.       MultiLine       =   -1  'True
  55.       TabIndex        =   0
  56.       Top             =   435
  57.       Width           =   6840
  58.    End
  59. defint a-z
  60. Sub Form_Load ()
  61.     CenterForm KBCFrm
  62.     text1.text = "Type here as in a major input control....(use the KB Lock keys)."
  63. End Sub
  64. Sub Form_Paint ()
  65.      ConvexFrm KBCFrm, 4
  66.      ConcaveCtl Clock1, 4
  67.      ConcaveCtl text1, 3
  68. End Sub
  69.