Example: Issuing a cleartool command (Visual Basic)
' Connect to the top-level ClearTool object
Dim ClearTool As New ClearCase.ClearTool
On Error Resume Next
' Issue a cleartool command using the IClearTool's default property (CmdExec)
MsgBox "Output from CmdExec:" & vbCrLf & ClearTool("pwv")
If Err.Number <> 0 Then
MsgBox "ClearTool returned error: " & Err.Description
Err.Raise Err.Number
End If