![]() | |
ConneXionDeleteContact Method |
Namespace: ConneXion
Dim oConneXion As New ConneXion.ConneXion Dim oResult As New ConneXion.ConneXionResult Dim oContact As New ConneXion.Contact oContact.TAMUserName = "EXEC" oContact.TAMPassword = "PSWD" oContact.RecordNumber = "104" oResult = oConneXion.DeleteContact(oContact) If oResult.Success = False Then txtContacts.Text = "DeleteContact is false. " & oResult.Description & oResult.TAMDescription Else txtContacts.Text = "DeleteContact is successful. " & oResult.Description & oResult.TAMDescription End If