VERSION 5.00
Begin VB.Form frmPoints 
   BackColor       =   &H00FFFFFF&
   Caption         =   "Points"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.Timer Timer1 
      Interval        =   60
      Left            =   1800
      Top             =   1320
   End
   Begin VB.Menu mnuFile 
      Caption         =   "Файл"
      Begin VB.Menu mnuExit 
         Caption         =   "Выход"
      End
   End
   Begin VB.Menu mnuGraphics 
      Caption         =   "Графика"
      Begin VB.Menu mnuDrawPoints 
         Caption         =   "Точки"
      End
      Begin VB.Menu mnuClear 
         Caption         =   "Очистка"
      End
   End
End
Attribute VB_Name = "frmPoints"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim gdrawPoints
Private Sub Form_Load()
gdrawPoints = 0
End Sub

Private Sub mnuClear_Click()
gdrawPoints = 0
frmPoints.Cls
End Sub

Private Sub mnuDrawPoints_Click()
gdrawPoints = 1

End Sub

Private Sub mnuExit_Click()
End
End Sub

Private Sub Timer1_Timer()
Dim R, G, B
Dim x, y
Dim Counter
If gdrawPoints = 1 Then
For Counter = 1 To 100 Step 1
R = Rnd * 255
G = Rnd * 255
B = Rnd * 255
x = Rnd * frmPoints.ScaleWidth
y = Rnd * frmPoints.ScaleHeight
frmPoints.PSet (x, y), RGB(R, G, B)
Next
End If


End Sub
