module1.bas

来自「这里有很多很实用的VB编程案例,方便大家学习VB.」· BAS 代码 · 共 15 行

Attribute VB_Name = "Module1"
Option Explicit
Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" _
               (ByVal nDrive As String) As Long
               
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const HTCAPTION = 2

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 Declare Sub ReleaseCapture Lib "User32" ()