如何编写能自动伸缩的窗口？

[qujing]

以前我学的是PowerBuilder，现改学VB，对那些API函数不知道怎么用，想知道
getcursor如何获取屏幕上鼠标的坐标。请各位网友帮助，先谢谢了。

[chenjun]

我在VB中文网上找到了一编文章，专门介绍API调用的，你可以自己去找或给我你的E_mail,我给你发一个,我的E_mail是[e-mail]

[qujing]

谢谢各位网友的热心帮助，可帖子总分只能加到分，只能大家分了，要是哪位朋友觉得不满意，下次再补啦，我刚学，有好多问题要请教大家。再次表示深深的感谢。

[liyang]

应该用GetCursorPos
Public Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
Public Type POINTAPI
x As Long
y As Long
End Type

dim blnReturn as boolean
dim CurPos as POINTAPI

blnReturn=GetCursorPos(CurPos)
if blnReturn then
CurPos.x
CurPos.y
end if

[Chen_Lin]

Public Type POINTAPI
X As Long
Y As Long
End Type
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

[Longe]

使用windows API函数
Option Explicit

Private Type POINTAPI
X As Long
Y As Long
End Type
Dim p() As POINTAPI

Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Sub form_click()
Dim hRgn As Long
Dim lRes As Long
ReDim p(4) As POINTAPI

With Me
p(0).X = 0
p(0).Y = 0
p(1).X = .ScaleWidth
p(1).Y = 0
p(2).X = .ScaleWidth
p(2).Y = .ScaleHeight
p(3).X = 0
p(3).Y = .ScaleHeight
End With

hRgn = CreatePolygonRgn(p(0), 4, 2)
lRes = SetWindowRgn(Me.hWnd, hRgn, True)
End Sub