movefrm.bas

电话本信息 基本上实现电话功能 自己下载侃侃吧

Attribute VB_Name = "MoveFrm"
Option Explicit

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

Public Sub SendMoveForm(ByVal hwnd As Long)
  ReleaseCapture
  SendMessage hwnd, &HA1, 2, 0
End Sub