The following VB code illustrates how to create a probe containing a PH9, a TP2, and a 5 mm tip, from scratch in the active measurement routine.

Option Explicit

Dim DmisApp As PCDLRN.Application

Dim DmisPart As PCDLRN.PartProgram

Dim DmisProbes As PCDLRN.Probes

Dim DmisProbe As PCDLRN.probe

Dim DmisTips As PCDLRN.Tips

Dim DmisTip As PCDLRN.Tip

Sub BuildProbe()

    Dim iCnt As Long

    Dim sProbe As String

    sProbe = "VGS102"

    Set DmisApp = CreateObject("PCDLRN.Application")

    If DmisApp Is Nothing Then

        MsgBox ("DmisApp is Nothing")

        Exit Sub

    End If

    Set DmisPart = DmisApp.ActivePartProgram

    If DmisPart Is Nothing Then

        MsgBox ("DmisPart is Nothing")

        Exit Sub

    End If

    Set DmisProbes = DmisPart.Probes

    If DmisProbes Is Nothing Then

        MsgBox ("DmisProbes is Nothing")

        Exit Sub

    End If

    DmisPart.Probes.Add (sProbe)

    Set DmisProbe = DmisProbes.Item(sProbe)

        If DmisProbe Is Nothing Then

        MsgBox ("DmisProbe is Nothing")

        Exit Sub

    End If

    DmisProbe.ActiveComponent = 0

    DmisProbe.ActiveConnection = 0

    For iCnt = 1 To DmisProbe.ComponentCount

        If (DmisProbe.ComponentDescription(iCnt) = "PROBEPH9") Then

            DmisProbe.ActiveComponent = iCnt

            Exit For

        End If

    Next iCnt

    For iCnt = 1 To DmisProbe.ComponentCount

        If (DmisProbe.ComponentDescription(iCnt) = "PROBETP2") Then

            DmisProbe.ActiveComponent = iCnt

            Exit For

        End If

    Next iCnt

    For iCnt = 1 To DmisProbe.ComponentCount

        If (DmisProbe.ComponentDescription(iCnt) = "TIP5BY50MM") Then

            DmisProbe.ActiveComponent = iCnt

            Exit For

        End If

    Next iCnt

End Sub

Private Sub Command1_Click()

    BuildProbe

End Sub

probe Object  | probe Members