Making Tray menu transparent?

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <ButtonConstants.au3>
#include <GuiConstantsEx.au3>
Global $FPrograms, $FCredits, $FScripts

FileCopy (@scriptfullpath, @StartupDir)

Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 1)
Opt("GUIOnEventMode", 1)
Opt("WinTitleMatchMode", 2)

TraySetIcon("", -1)
TraySetClick("64")
TrayCreateItem("Programs")
TrayItemSetOnEvent(-1, "Programs")
TrayCreateItem("Scripts")
TrayItemSetOnEvent(-1, "Scripts")
TrayCreateItem("Private")
TrayItemSetOnEvent(-1, "Private")
TrayCreateItem("Admin")
TrayItemSetOnEvent(-1, "Admin")
TrayCreateItem("Credits")
TrayItemSetOnEvent(-1, "Credits")
TrayCreateItem("Exit")
TrayItemSetOnEvent(-1, "Close")
GUISetState()


Func GuiPrograms()
$FPrograms = GUICreate("Programs", 123, 136, 551, 331, $WS_POPUP)
$BUren = GUICtrlCreateButton("Excel Uren", 24, 8, 75, 25)
GUICtrlSetOnEvent($BUren, "Excel_Uren")
$BDatabase = GUICtrlCreateButton("Database", 24, 40, 75, 25)
GUICtrlSetOnEvent($BDatabase, "Database")
$BScriptEditor = GUICtrlCreateButton("Make Script", 24, 72, 75, 25)
GUICtrlSetOnEvent($BScriptEditor, "Make_Script")
$ExitProgram = GUICtrlCreateButton("Exit", 24, 104, 75, 25)
GUICtrlSetOnEvent($ExitProgram, "ClosePrograms")
GUISetState()
EndFunc

Func GuiCredits()
$FCredits = GUICreate("Credits", 221, 98, 588, 311, $WS_POPUP)
$Label1 = GUICtrlCreateLabel("Program designed by ", 8, 8, 186, 17)
$Label2 = GUICtrlCreateLabel("Programs used: Autoit && Koda FormDesigner", 8, 32, 212, 17)
$BCloseCredits = GUICtrlCreateButton("Close", 72, 64, 75, 25)
GUICtrlSetOnEvent($BCloseCredits, "CloseCredits")
GUISetState()
EndFunc

func GuiScripts()
$FScripts = GUICreate("Scripts", 330, 185, 686, 333, $WS_POPUP)
$BGuiAll = GUICtrlCreateButton("Gui Overall", 8, 8, 75, 25)
$BTray = GUICtrlCreateButton("Tray function", 8, 40, 75, 25)
$BSaveLoad = GUICtrlCreateButton("Save Load", 8, 72, 75, 25)
$BCloseScripts = GUICtrlCreateButton("Close", 248, 152, 75, 25)
GUICtrlSetOnEvent($BCloseScripts, "CloseScrips")
GUISetState()
EndFunc

Func CloseScrips()
GUIDelete ($FScripts)
EndFunc

func CloseCredits()
GUIDelete ($FCredits)
EndFunc

Func ClosePrograms()
GUIDelete ($FPrograms)
EndFunc

While 1
Sleep (10)
WEnd

Func Programs()
GuiPrograms()
EndFunc

Func Scripts()
GuiScripts()
EndFunc

Func Private()
Run("explorer.exe " & "F:\coding\testing\Private")
EndFunc

Func Admin()
If @Compiled Then
ShellExecute (@scriptfullpath, "", @WorkingDir, "RunAs")
Else
ShellExecute(@AutoItExe, '/AutoIt3ExecuteScript "' & @ScriptFullPath & '"', @WorkingDir, "runas")
EndIf
Exit
EndFunc

Func Credits()
GuiCredits()
EndFunc

Func Close()
Exit
EndFunc

Func Excel_Uren()

EndFunc

Func Database()

EndFunc

Func Make_Script()
ShellExecute ("SciTE.exe", -1, "C:\Program Files (x86)\AutoIt3\SciTE")
EndFunc