Pls, advise me. Thank
With this script, I tried to do it but it's always disappear after run.
Sub Main
Dim app As Object
Dim partp As Object
Dim aa As Object
Set app = CreateObject ("PCDLRN.application")
Set partp = app.activepartprogram
Set aa = partp.Probes.application
End Sub