home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 41 / IOPROG_41.ISO / soft / delphi / NCTDesignBox2.exe / Main / frmCMU.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-09-29  |  1.9 KB  |  67 lines
  1. VERSION 5.00
  2. Object = "{489F6F86-FA5F-46C1-9154-0BDFE98E2B02}#2.0#0"; "NCTDesignBox.ocx"
  3. Begin VB.Form frmCMU 
  4.    BackColor       =   &H00000000&
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "CMU"
  7.    ClientHeight    =   5775
  8.    ClientLeft      =   45
  9.    ClientTop       =   330
  10.    ClientWidth     =   6735
  11.    Icon            =   "frmCMU.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   5775
  16.    ScaleWidth      =   6735
  17.    Begin NCTDesignBox.CMU CMU3 
  18.       Height          =   2415
  19.       Left            =   1260
  20.       TabIndex        =   2
  21.       Top             =   3000
  22.       Width           =   2415
  23.       _ExtentX        =   4260
  24.       _ExtentY        =   4260
  25.       varPickColor    =   65535
  26.       varPickW        =   20
  27.       varSpeed        =   4
  28.    End
  29.    Begin NCTDesignBox.CMU CMU2 
  30.       Height          =   2415
  31.       Left            =   3720
  32.       TabIndex        =   1
  33.       Top             =   660
  34.       Width           =   2415
  35.       _ExtentX        =   4260
  36.       _ExtentY        =   4260
  37.       varPickColor    =   65280
  38.       varPickW        =   20
  39.       varSpeed        =   4
  40.    End
  41.    Begin NCTDesignBox.CMU CMU1 
  42.       Height          =   2355
  43.       Left            =   180
  44.       TabIndex        =   0
  45.       Top             =   240
  46.       Width           =   2355
  47.       _ExtentX        =   4154
  48.       _ExtentY        =   4154
  49.       varPickW        =   20
  50.       varSpeed        =   4
  51.    End
  52.    Begin VB.Timer Timer1 
  53.       Interval        =   50
  54.       Left            =   210
  55.       Top             =   5040
  56.    End
  57. Attribute VB_Name = "frmCMU"
  58. Attribute VB_GlobalNameSpace = False
  59. Attribute VB_Creatable = False
  60. Attribute VB_PredeclaredId = True
  61. Attribute VB_Exposed = False
  62. Private Sub Timer1_Timer()
  63.     CMU2.Value = Rnd() * 100
  64.     CMU1.Value = Rnd() * 100
  65.     CMU3.Value = Rnd() * 100
  66. End Sub
  67.