hIcon = getIcon(Nz(Me!txtAppIconPath.Value, ""))
If hIcon <> 0 Then
Call SendMessage(Me.hWnd, WM_SETICON, 0, ByVal hIcon)
Call goSystray
If Me!chkHideAccess.Value Then
Call ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
Else
MsgBox "The Icon-Path is not valid! You need a valid icon to start"
End If
اسعد الله اوقاتكم بكل خير
عمل اكثر من رائع ولكن عند تطبيقه ظهر لي خطاء في الكود السابق عند الضغط على زر start علماً إنني استوردت الخمس وحدات النمطيه المطلوبه ونسخت مربع النص على الشاشه الرئيسيه لدي ووضعت جميع الاكواد المطلوبه ولكن لايزل يعطي خطاء في هذا الكود وبالتحديد في getIcon
شاكر للجميع