如何改变窗体的高度

[killvs]

我得到了改窗体的句柄想把他的高度改了如何去作呢(我的程序和要改的窗体不是同一个程序)

[pcwak]

Const HWND_NOTOPMOST = -2
Const SWP_NOMOVE = &H2
Private Declare Sub SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Command1_Click()
Dim lngH As Long
Dim lngW As Long
lngH = 100
lngW = 200
SetWindowPos Form1.hWnd, HWND_NOTOPMOST, 0, 0, lngW, lngH, SWP_NOMOVE
End Sub

[killvs]

不是改变窗体的大小是他的顶端到桌面的高度(top)

[wzzwwz]

//pcwak(书剑狂生)
改了一下你的代码，多包涵。

Option Explicit
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOSIZE = &H1

Private Declare Sub SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

Private Sub Command1_Click()
Dim lngTop As Long
Dim lngLeft As Long
lngTop = 10
lngLeft = 200
SetWindowPos Form1.hWnd, HWND_NOTOPMOST, lngLeft, lngTop, 0, 0, SWP_NOSIZE
End Sub

[DemonLoveLizzy]

movewindow hwnd,left,top,width,hight