I am trying to call two different icons to the systray. When you DblClick on the current icon in the systray, it changes the icon. Right now I am calling them from the apps directory, but I would rather call them from inside the app. I.E. picture control.

Private Function ChangeState()
If blnEnabled Then
blnEnabled = False
cmd_Enable.Caption = "Enable"
mnuEnable.Caption = "Enable"
Set Me.Icon = LoadPicture(App.Path & "\Images\disabled.ico") <----
ByPass = True
Else
blnEnabled = True
cmd_Enable.Caption = "Disable"
mnuEnable.Caption = "Disable"
Set Me.Icon = LoadPicture(App.Path & "\Images\enabled.ico") <---
ByPass = False
End If
UpdateIcon
End Function