home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l407 / 1.ddi / SCRIBBLE.FR_ / SCRIBBLE.bin (.txt)
Encoding:
Visual Basic Form  |  1993-04-28  |  867 b   |  29 lines
  1. VERSION 2.00
  2. Begin Form frmScribble 
  3.    Caption         =   "Scribble"
  4.    ClipControls    =   0   'False
  5.    DrawMode        =   14  'Merge Pen Not
  6.    Height          =   5010
  7.    Left            =   1080
  8.    LinkTopic       =   "Form1"
  9.    MDIChild        =   -1  'True
  10.    ScaleHeight     =   4605
  11.    ScaleWidth      =   4965
  12.    Top             =   1740
  13.    Width           =   5085
  14. Dim DrawNow As Integer
  15. Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  16.     DrawNow = -1
  17.     CurrentX = X
  18.     CurrentY = Y
  19. End Sub
  20. Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  21.     If DrawNow Then
  22.         Line -(X, Y)
  23.         Circle (X, Y), 50
  24.     End If
  25. End Sub
  26. Sub Form_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
  27.     DrawNow = 0
  28. End Sub
  29.