If someone could/would help you would have received an answer by now. Re-posting your question to the board (spamming) is not considered considerate behaviour. ...Steve "Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." (Translation: I'll show you the way, but not write the code for you.) I read that somewhere once :-)

This don't really make sense to me... But, try this: Private Sub Show_Hide(blnShow As Boolean) Dim hWndTray As Long Dim hWndClock As Long hWndTray = GetDlgItem(FindWindow(TASKBAR, ""), ID_TRAY) hWndClock = GetDlgItem(hWndTray, ID_CLOCK) If hWndClock = 0 Then Exit Sub ShowWindow hWndClock, IIf(blnShow, SW_SHOW, SW_HIDE) UpdateWindow hWndClock UpdateWindow hWndTray End Sub Eric Dahlvang-Programmer