api call for taskbar state

I want to know is the taskbar is loaded so I can create a tray icon my app is running as a nt service

How about this?

Code:

---

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Function QTaskbar() As Boolean
    Dim x As Variant
    x = FindWindow("Shell_TrayWnd", vbNullString)
    QTaskBar = IsNull(x)
End Function

---