почему overflow Я идиот! Убейте меня, кто-нибудь!????

[deepslam]

Есть код:

Код: Выделить всё

Public Sub OnTopMe()
SetWindowPos Form1.hwnd, -1, Form1.Left / 15, Form1.Top / 15, Form1.Width / 15, Form1.Height / 15, &H50 'Форма on-top
End Sub

Почему он выдаёт overflow??? Что я не так делаю ?

[step]

У меня всё нормал!


Private Declare Function SetWindowPos Lib "user32.dll" (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

Public Sub OnTopMe()
SetWindowPos Form1.hwnd, -1, Form1.Left / 15, Form1.Top / 15, Form1.Width / 15, Form1.Height / 15, &H50 'Форма on-top
End Sub

Private Sub Command1_Click()
OnTopMe
End Sub

[deepslam]

У меня всё нормал!


Private Declare Function SetWindowPos Lib "user32.dll" (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

Public Sub OnTopMe()
SetWindowPos Form1.hwnd, -1, Form1.Left / 15, Form1.Top / 15, Form1.Width / 15, Form1.Height / 15, &H50 'Форма on-top
End Sub

Private Sub Command1_Click()
OnTopMe
End Sub

а это может быть из-за того, что у меня процедура в модуле лежит?

[step]

НЕ я и через модуль пробовал всё ОК.

[deepslam]

твой пример работает )))
да у меня и свой был, но я ошибку нашел - SetWindowPos как то криво объявлена была )