Excel Useform：如何隐藏应用程序但在任务栏中有图标（位64）

Question

如何隐藏 Excel应用程序并添加用户窗体的系统任务栏图标？我看到有以前的代码可以执行此操作，但是我无法使其正常工作。谁能帮助我解决这个问题。谢谢大家

这是我正在查看的code，我很难应用此代码。每当我运行宏

时，总是出现错误

  

编译错误：类型不匹配

它来自代码的这一部分

Private Sub AddIcon()
'Add an icon on the titlebar
    Dim hWnd As Long
    Dim lngRet As Long
    Dim hIcon As Long
    hIcon = Sheet1.Image1.Picture.Handle
    hWnd = FindWindow(vbNullString, Me.Caption)
    lngRet = SendMessage(hWnd, WM_SETICON, ICON_SMALL, ByVal hIcon)
    lngRet = SendMessage(hWnd, WM_SETICON, ICON_BIG, ByVal hIcon)
    lngRet = DrawMenuBar(hWnd)
End Sub

突出显示的部分是这个hWnd = FindWindow(vbNullString, Me.Caption)