Modularize it as you see fit.
Declare Function FindWindow Lib "User32.dll" Alias "FindWindowW" ( _
lpClassName As WString, _
lpWindowName As WString _
) As Integer
Declare Function SetWindowPos Lib "User32.dll" Alias "SetWindowPos" ( _
hWnd As Integer, _
hWndInsertAfter As Integer, _
X As Int32, _
Y As Int32, _
cx As Int32, _
cy As Int32, _
uFlags As UInt32 _
) As Int32
Const SWP_HIDEWINDOW = &h0080
Const SWP_SHOWWINDOW = &h0040
Const SWP_NOACTIVATE = &h0010 'so our app doesn't lose focus when we call SetWindowPos
Dim taskbar As Integer = FindWindow("Shell_traywnd", "")
Call SetWindowPos(taskbar, 0, 0, 0, 0, 0, SWP_HIDEWINDOW Or SWP_NOACTIVATE)