vbAccelerator - Contents of code file: cMouseObject.cls
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "cMouseObject"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Public mouseOver As Boolean
Public mouseDown As Boolean
Public dragging As Boolean
Public mouseDownPointX As Long
Public mouseDownPointY As Long
|