Merhaba,

Buton üzerine aşağıdaki kodu tanımlayarak formu simge durumunda küçültebiliyordum.
şimdi denediğimde aşağıdaki hatayı alıyorum yardımcı olabilir misiniz?

KOD

Private Sub Command117_Click()

Form.Visible = False

Call sHookTrayIcon2(Application.hWndAccessApp)

End Sub

HATA

Sub sHookTrayIcon2(hwnd As Long, Optional strTipText As String, Optional strIconPath As String)
    Dim lngStyle As Long

    If fInitTrayIcon(hwnd, strTipText, strIconPath) Then
        lngStyle = GetWindowLong(hwnd, GWL_STYLE)
        If lngStyle And WS_MAXIMIZE Then
            lngWindowState = SW_SHOWMAXIMIZED
        ElseIf lngStyle And WS_MINIMIZE Then
            lngWindowState = SW_SHOWMINIMIZED
        Else
            lngWindowState = SW_SHOWNORMAL
        End If
 lngWindowState = SW_SHOWMINIMIZED
        apiShowWindow hwnd, SW_MINIMIZE
        apiShowWindow hwnd, SW_HIDE
        ToggleTaskbarButton hwnd

        lpPrevWndProc = apiSetWindowLong(hwnd, GWL_WNDPROC, AddressOf fWndProcTray2)
    End If
End Sub



Saygılarımla,