show form on top of other prog

Hello Everyone
I have a VB6 program that accepts rtc calls from other PC. I minimize that form in system tray and wheneve a call comes in that form pops us from system tray and shows on the destop. The problem with this is that if I have any window open like for example windows explorer my forms comes behind it. I want to have this form on the top so that user can easily answer incomming call.
Can some pls help me with this.
The followin is the code I use to maximize and minimize form:
Private Sub Minimize_Click()
'Add an icon. This procedure uses the icon specified in
'the Icon property of frmmain. This can be modified as desired.

Dim i As Integer
Dim s As String
Dim nid As NOTIFYICONDATA

s = "RIVA Answer Station"
nid = setNOTIFYICONDATA(frmMain.hwnd, vbNull, NIF_MESSAGE Or NIF_ICON Or NIF_TIP, WM_MOUSEMOVE, frmMain.Icon, s)
i = Shell_NotifyIconA(NIM_ADD, nid)

WindowState = vbMinimized
Visible = False

End Sub
Private Function setNOTIFYICONDATA(hwnd As Long, ID As Long, Flags As Long, CallbackMessage As Long, Icon As Long, Tip As String) As NOTIFYICONDATA
Dim nidTemp As NOTIFYICONDATA

nidTemp.cbSize = Len(nidTemp)
nidTemp.hwnd = hwnd
nidTemp.uID = ID
nidTemp.uFlags = Flags
nidTemp.uCallbackMessage = CallbackMessage
nidTemp.hIcon = Icon
nidTemp.szTip = Tip & Chr$(0)

setNOTIFYICONDATA = nidTemp
End Function

Private Sub maximize()

WindowState = vbNormal
Visible = True
Dim hProcess As Long
GetWindowThreadProcessId hwnd, hProcess
AppActivate hProcess


End Sub

Declarations
' To Minimize app in system tray
Private Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type

Const NIM_ADD = 0
Const NIM_MODIFY = 1
Const NIM_DELETE = 2
Const NIF_MESSAGE = 1
Const NIF_ICON = 2
Const NIF_TIP = 4

Const WM_MOUSEMOVE = &H200
Const WM_LBUTTONDOWN = &H201
Const WM_LBUTTONUP = &H202
Const WM_LBUTTONDBLCLK = &H203
Const WM_RBUTTONDOWN = &H204
Const WM_RBUTTONUP = &H205
Const WM_RBUTTONDBLCLK = &H206
Const WM_MBUTTONDOWN = &H207
Const WM_MBUTTONUP = &H208
Const WM_MBUTTONDBLCLK = &H209

Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function Shell_NotifyIconA Lib "SHELL32" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Integer
' minimize system tray ends here

Use the SetForegroundWindow API:

VB Code:

Declare Function SetForegroundWindow Lib "user32" Alias "SetForegroundWindow" (ByVal hwnd As Long) As Long

call it:

VB Code:

SetForegroundWindow Me.hWnd

Thanks for the reply. I tried pasting SetForeground declaration and it doesnt take the alias value. I am able to run the code but when I place a windows explorer on top of it the form runs in background.
Am I doing something wrong?

Quote:

---

Originally Posted by shoazib

I tried pasting SetForeground declaration and it doesnt take the alias value.

---

:confused: Doesn't take the alias? :confused:

You could alias a API declare as BananaSplit if you wanted to, and it should still work. What error message are you getting?

the alias will dissappear if the function name is an exact match.

where are you calling SetForegroundWindow?

I am calling the function here:
Private Sub maximize()

WindowState = vbNormal
Visible = True
Dim hProcess As Long
GetWindowThreadProcessId hWnd, hProcess
AppActivate hProcess
SetForegroundWindow Me.hWnd


End Sub