myvariable.bas

传奇网吧伴侣源码

Attribute VB_Name = "MyVariable"
Option Explicit
'气炮窗口的背景颜色
Public Const BForm_BackColor = &HC0FFFF
Public Const Now_Time = ""
'时区
Public Const Time_Acer = 8
'整点报时
Public bZDTime As Long
'重要提示
Public bZYTime As Long
'重要提示内容
Public sZYTimeString As String
'重发提示时间
Public dZYTimeData As Date
'是否
Public bQQ As Long
Public tZYTime As SYSTEMTIME
Public bPopWindow As Long
Public bResetIE As Long
Public bAddress As Long
Public bStopPic As Long

Public strMessage As String

Public NoMove As Boolean
Public NoMoveMouse As Long

Public MouseCount As Long

Public FristMousePoint As POINTAPI

Public TheData As NOTIFYICONDATA


Public lpPoint(200) As POINTAPI
Public MaxPolygonPoints As Long

'Type for CreatePolygonRgn

'Variables for moving form

Public OldWindowProc As Long
Public TheForm As Form
Public TheMenu As Menu