modulebutton.bas

原创VB+SQL影音租赁系统 醮简单 具体看里边的文本文档

Attribute VB_Name = "ModuleButton"

Public Declare Function GetCursorPos Lib "user32" (lpPoint As pointapi) As Long


Public Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long

Public Type pointapi
     x As Long
     y As Long
End Type