Beroende på svar ifrån Text-To-Speck så vill jag ändra iconens utseende, men det skit... sig.
Så här försöker jag.

Case "Notepad"
sFile = "\system32\notepad.exe"
noth = ShellExecute(0, "OPEN", Environ("SystemRoot") & sFile, "", "", 1)
snacka.Speak "Open " & Phrase
Form1.Icon = LoadPicture(App.Path & "\TRFFC10A.ICO")
Några bättre förslag???

Du ändrar bara formulärets icon.

Hur lägger du till ikonen i systray? Använder du API eller en komponent?

Jag hittade ett exempel hör på Pellesoft.
Utdrag ur koden:
<code>
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias _
"Shell_NotifyIconA" (ByVal dwMessage As Long, _
pnid As NOTIFYICONDATA) As Boolean

Dim Icon_Data As NOTIFYICONDATA

Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const WM_MOUSEMOVE = &H200
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4

Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205
------
Icon_Data.cbSize = Len(Icon_Data)

Icon_Data.hWnd = Länk.hWnd 'Länkar den till Bildens händelser
Icon_Data.uId = 1&
Icon_Data.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE 'Anger inställningarna på Iconen
Icon_Data.ucallbackMessage = WM_MOUSEMOVE 'Anger när meddelandet ska tas bort
Icon_Data.hIcon = Me.Icon 'Om man vill ha Formens Icon
'Icon_Data.hIcon = Image1 'Lägger in Image1 Icon

Icon_Data.szTip = "Snacka med S.A.W" & Chr$(0) 'ToolTipet
Shell_NotifyIcon NIM_ADD, Icon_Data 'Lägger in den på Systrayn
Me.Hide 'Gömmer formen
App.TaskVisible = False 'Visar inte progget med bla Alt+TAb
---
Icon_Data.cbSize = Len(Icon_Data)
Icon_Data.hWnd = Länk.hWnd 'Anger länken till bilden
Icon_Data.uId = 1&
Shell_NotifyIcon NIM_DELETE, Icon_Data 'Tarbort den från Systrayn
---
If Icon_Data.hIcon = Image2 Then
Icon_Data.hIcon = Image1
Shell_NotifyIcon NIM_MODIFY, Icon_Data
Else
Icon_Data.hIcon = Image2
Shell_NotifyIcon NIM_MODIFY, Icon_Data
End If
---
</code>
Som du ser så kan jag välja själv vilket jag vill ha.
Men resultatet av mina försök blir att det blir många iconer när jag anropa med:
Form1.Icon = LoadPicture(App.Path & "\TRFFC10A.ICO")

Vad tror du?