移动无标题栏的窗口.bas

个人VB学习源码精选,自己学习时的一些编程小程序,希望对大家有帮助

Attribute VB_Name = "Module1"
 'Const&Functions used for the FormMove methods
Public Const LP_HT_CAPTION = 2 '光标处于标题区
Public Const WM_NCLBUTTONDOWN = &HA1
 Declare Function ReleaseCapture Lib "user32" () As Long
 Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long