Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim lHwnd As Long
'найти hWnd
lHwnd& = FindWindow("Shell_TrayWnd", "")
Public Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function 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) As Long
SetWindowPos lHwnd, -1, 0,0,0, 0, &H10
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 56