Вопрос
Как сделать, чтобы мое окно всегда оставалось поверх всех остальных окон?
Ответ
Public Sub ToTop(frm As Form)
Dim lngTemp As Long
lngTemp = SetWindowPos(frm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, _
SWP_NOSIZE Or SWP_NOMOVE)
End Sub
Ну а вызывать так:
ToTop Me
Из конференции Expert_FAQ
Copyright 
2000-2004 Сообщество Чайников
Контактная информация