general.bas

来自「大量优秀的vb编程」· BAS 代码 · 共 18 行

Attribute VB_Name = "General"
Option Explicit

'These Functions and Constants are only used by frmKeyGen they have
'nothing to do with the operation of KeyGen, their purpose is to
'allow the form to be moved when a user click on imgMove

Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const WM_NCLBUTTONDOWN = &HA1
Public Const HTCAPTION = 2

'
Public softwareCode As String