Option Explicit 
'Author: Nguyen Duy Tuan - http://bluesofts.net
'Facebook: https://www.facebook.com/groups/hocexcel
#If VBA7 Then 
Public Declare PtrSafe Function CountFileInProcess Lib "BSAC.ocx" (ByVal FileName As Variant) As Long 
#Else 
Public Declare Function CountFileInProcess Lib "BSAC.ocx" (ByVal FileName As Variant) As Long 
#End If 
Dim TP As BSTaskPane 

Sub CreateTpZalo() 
   Dim TPs As New BSTaskPanes  'Task Pane list
   Dim MustCreate As Boolean 
   Dim Title As String: Title = "Task Pane: Zalo"  'It is the same in sub DestroyTpZalo()
'SinkControl:
   ' + Userform
   ' + Handle to window
   ' + ClassName:Title (if only find class name then "ClassName:"
   ' + Title
   'In this demo, "Zalo" is title of Zalo App
   'Class and Title of appilcation use "Spy++ tool" or other to find
   If CountFileInProcess("Zalo.exe") = 0 Then 
      MsgBoxW "Please run Zalo app.", vbCritical, "Zalo not running" 
      Exit Sub 
   End If 
   If Not TP Is Nothing Then 
      MustCreate = TP.Client.SinkControl = 0  'Not success
      If Not MustCreate Then  'Exists, check is it Zalo?
         If TP.Caption <> Title Then 
            If MsgBoxW("Do you want to remove TP and recreate it?", VbMsgBoxStyle.vbQuestion + vbYesNo, "Create Zalo") = vbYes Then 
               TP.Remove 
               Set TP = Nothing 
               MustCreate = True 
            End If 
         End If 
      End If 
   Else 
      MustCreate = True 
   End If 
   If MustCreate Then 
      Set TP = TPs.Add(Title, "Zalo", False, dpLeft) 
      TP.AllowHide = False  'Prevent user from clicking on "X" of Task Pane
   Else 
      TP.Visible = True 
   End If 
   'Ok!
   Set TPs = Nothing 
End Sub  
Sub DestroyTpZalo() 
   Dim TPs As New BSTaskPanes 
   'TPs.Clear 'Clear all task panes
   Dim Title As String: Title = "Task Pane: Zalo" 
   Dim Idx As Long 
   If TPs.Count > 0 And TP Is Nothing Then  'try to get instance of Task pane if it is lost
      'Variable "TP" may be lost when you have a bug anywhere
      Idx = TPs.IndexOf(Title)  'Find TP with Title in TaskPane list (BSTaskPanes)
      If Idx >= 0 Then 
         Set TP = TPs(Title) 
      End If 
   End If 
   If Not TP Is Nothing Then  'Only Zalo app
      TP.Remove 
      Set TP = Nothing 
   End If 
   Set TPs = Nothing 
End Sub