GFCurve/Testfrm.frm

VERSION 5.00
Begin VB.Form Testfrm
   Caption         =   "Form1"
   ClientHeight    =   5715
   ClientLeft      =   60
   ClientTop       =   465
   ClientWidth     =   7755
   LinkTopic       =   "Form1"
   ScaleHeight     =   5715
   ScaleWidth      =   7755
   StartUpPosition =   3 'Windows‑Standard
   Begin VB.Timer Timer1
      Interval        =   500
      Left            =   60
      Top             =   60
   End
   Begin Project1.GFCurvectl GFCurve1
      Height          =   5595
      Left            =   60
      TabIndex        =   0
      Top             =   60
      Width           =   7635
      _extentx        =   13467
      _extenty        =   8070
   End
End
Attribute VB_Name = "Testfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'(c)2002 by Louis.

Private Sub Form_Load()
    'on error resume next
    Call GFCurve1.Initialize(5, 10000)
    GFCurve1.BackColor = RGB(0, 0, 0)
    GFCurve1.ForeColor = RGB(255, 255, 255)
    Call GFCurve1.CObj_Add("Money to Bill", RGB(255, 64, 64))
    Call GFCurve1.CObj_Add("Crashing Programs", RGB(64, 255, 64))
    Call GFCurve1.CObj_Add("Windows Errors", RGB(200, 200, 255))
End Sub

Private Sub Timer1_Timer()
    'on error resume next
    Call GFCurve1.C_ReceiveValue("Money to Bill", CSng(Int((100 ‑ 0 + 1) * Rnd(1) + 0)))
    Call GFCurve1.C_ReceiveValue("Crashing Programs", CSng(Int((10 ‑ 0 + 1) * Rnd(1) + 0)))
    Call GFCurve1.C_ReceiveValue("Windows Errors", CSng(Int((50 ‑ 0 + 1) * Rnd(1) + 0)))
    Call GFCurve1.C_Tick
End Sub


[END OF FILE]