home *** CD-ROM | disk | FTP | other *** search
/ On Hand / On_Hand_From_Softbank_1994_Release_2_Disc_2_1994.iso / 00202 / s / disk1 / scribble.fr_ / scribble.bin
Text File  |  1993-04-28  |  867b  |  38 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. End
  15.  
  16.  
  17.  
  18.  
  19. Dim DrawNow As Integer
  20.  
  21. Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  22.     DrawNow = -1
  23.     CurrentX = X
  24.     CurrentY = Y
  25. End Sub
  26.  
  27. Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  28.     If DrawNow Then
  29.         Line -(X, Y)
  30.         Circle (X, Y), 50
  31.     End If
  32. End Sub
  33.  
  34. Sub Form_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
  35.     DrawNow = 0
  36. End Sub
  37.  
  38.