home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / adpipeax / scribble.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-01-06  |  1.4 KB  |  44 lines
  1. VERSION 5.00
  2. Begin VB.Form frmScribble 
  3.    Caption         =   "Scribble"
  4.    ClientHeight    =   4590
  5.    ClientLeft      =   1125
  6.    ClientTop       =   2115
  7.    ClientWidth     =   4995
  8.    ClipControls    =   0   'False
  9.    DrawMode        =   14  'Copy Pen
  10.    BeginProperty Font 
  11.       Name            =   "MS Sans Serif"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   700
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    LinkTopic       =   "Form1"
  20.    MDIChild        =   -1  'True
  21.    PaletteMode     =   1  'UseZOrder
  22.    ScaleHeight     =   4590
  23.    ScaleWidth      =   4995
  24. Attribute VB_Name = "frmScribble"
  25. Attribute VB_GlobalNameSpace = False
  26. Attribute VB_Creatable = False
  27. Attribute VB_PredeclaredId = True
  28. Attribute VB_Exposed = False
  29. Dim DrawNow As Integer
  30. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  31.     DrawNow = -1
  32.     CurrentX = X
  33.     CurrentY = Y
  34. End Sub
  35. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  36.     If DrawNow Then
  37.         Line -(X, Y)
  38.         Circle (X, Y), 50
  39.     End If
  40. End Sub
  41. Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  42.     DrawNow = 0
  43. End Sub
  44.