Bring a window to top??

[alexvb]

How do i bring a window (e.g from IE) to the top? I tried it like this

windowhandle = FindWindow(vbNullString, "Mywebsite - Microsoft Internet Explorer")
If windowhandle <> 0 Then
     BringWindowToTop windowhandle 
     DoEvents
     SetForegroundWindow windowhandle 
End If

but it does not work properly. Sometimes the window comes to top, the other time the window is blinking in the taskbar, but it remains in background.

[KayJay]

Did you try the inhernet Appactivate method?

strTitle = "VB Q and A - General VB Questions - Microsoft Internet Explorer"
AppActivate strTitle

[alexvb]

Yes, didn't work either..

[KayJay]

try this instead

Private Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Sub Command1_Click()
strtitle = "VB Q and A - General VB Questions - Microsoft Internet Explorer"
ret = FindWindow(vbNullString, strtitle)
BringWindowToTop ret
End Sub