Dim ret As Long
Dim MyStr As String
ret = GetForegroundWindow()
MyStr = String(100, Chr$(0))
GetWindowText ret, MyStr, 100
If InStr(1, MyStr, "Прога") Then
Call SetWindowPos(Me.hwnd, ret, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
End If
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 46