>Post them. I'll try to translate
Private Sub ComboLines_Click()
Dim lvLineCaps As KDTele.TxLineCaps, lvRet As Long
TextLineCaps.Text = ""
lvRet = KDPhoneControl.GetLineCaps(ComboLines.ListIndex, lvLineCaps)
If lvRet <> 0 Then
TextLineCaps.Text = "Error: " + KDPhoneControl.GetErrorMsg(lvRet)
Exit Sub
End If
If lcCallerID And lvLineCaps Then
TextLineCaps.Text = TextLineCaps.Text + "Caller ID - OK" + vbCrLf
Else
TextLineCaps.Text = TextLineCaps.Text + "Caller ID - UNAVAILABLE" + vbCrLf
End If
If lcDigitPulseDetect And lvLineCaps Then
TextLineCaps.Text = TextLineCaps.Text + "Digit pulse detection - OK" + vbCrLf
Else
TextLineCaps.Text = TextLineCaps.Text + "Digit pulse detection - UNAVAILABLE" + vbCrLf
End If
If lcDigitToneDetect And lvLineCaps Then
TextLineCaps.Text = TextLineCaps.Text + "Digit tone detection - OK" + vbCrLf
Else
TextLineCaps.Text = TextLineCaps.Text + "Digit tone detection - UNAVAILABLE" + vbCrLf
End If
If lcWavePlayRec And lvLineCaps Then
TextLineCaps.Text = TextLineCaps.Text + "Play and record wave - OK" + vbCrLf
Else
TextLineCaps.Text = TextLineCaps.Text + "Play and record wave - UNAVAILABLE" + vbCrLf
End If
If lcDataDevice And lvLineCaps Then
TextLineCaps.Text = TextLineCaps.Text + "Serial port device - OK" + vbCrLf
Else
TextLineCaps.Text = TextLineCaps.Text + "Serial port device - UNAVAILABLE" + vbCrLf
End If
If lcExtDevAux And lvLineCaps Then
TextLineCaps.Text = TextLineCaps.Text + "Auxiliary microphone and speaker capabilities:" + vbCrLf
If lcExtDevAuxMicOnSpeakerOff And lvLineCaps Then
TextLineCaps.Text = TextLineCaps.Text + " -Turning on the mic only - OK" + vbCrLf
Else
TextLineCaps.Text = TextLineCaps.Text + " -Turning on the mic only - UNAVAILABLE" + vbCrLf
End If
If lcExtDevAuxMicOffSpeakerOn And lvLineCaps Then
TextLineCaps.Text = TextLineCaps.Text + " -Turning on the speaker only - OK" + vbCrLf
Else
TextLineCaps.Text = TextLineCaps.Text + " -Turning on the speaker only - UNAVAILABLE" + vbCrLf
End If
If lcExtDevAuxMicOnSpeakerOn And lvLineCaps Then
TextLineCaps.Text = TextLineCaps.Text + " -Turning on the microphone and the speaker simultaneously - OK" + vbCrLf
Else
TextLineCaps.Text = TextLineCaps.Text + " -Turning on the microphone and the speaker simultaneously - UNAVAILABLE" + vbCrLf
End If
If lcExtDevAuxMicGain And lvLineCaps Then
TextLineCaps.Text = TextLineCaps.Text + " -Mic gain adjusting - OK" + vbCrLf
Else
TextLineCaps.Text = TextLineCaps.Text + " -Mic gain adjusting - UNAVAILABLE" + vbCrLf
End If
If lcExtDevAuxSpeakerVolume And lvLineCaps Then
TextLineCaps.Text = TextLineCaps.Text + " -Speaker volume adjusting - OK" + vbCrLf
Else
TextLineCaps.Text = TextLineCaps.Text + " -Speaker volume adjusting - UNAVAILABLE" + vbCrLf
End If
Else
TextLineCaps.Text = TextLineCaps.Text + "Auxiliary microphone and speaker - UNAVAILABLE" + vbCrLf
End If
If lcExtDevHandset And lvLineCaps Then
TextLineCaps.Text = TextLineCaps.Text + "Local phone handset capabilities:" + vbCrLf
If lcExtDevHandsetMicOnSpeakerOff And lvLineCaps Then
TextLineCaps.Text = TextLineCaps.Text + " -Turning on the mic only - OK" + vbCrLf
Else
TextLineCaps.Text = TextLineCaps.Text + " -Turning on the mic only - UNAVAILABLE" + vbCrLf
End If
If lcExtDevHandsetMicOffSpeakerOn And lvLineCaps Then
TextLineCaps.Text = TextLineCaps.Text + " -Turning on the speaker only - OK" + vbCrLf
Else
TextLineCaps.Text = TextLineCaps.Text + " -Turning on the speaker only - UNAVAILABLE" + vbCrLf
End If
If lcExtDevHandsetMicOnSpeakerOn And lvLineCaps Then
TextLineCaps.Text = TextLineCaps.Text + " -Turning on the microphone and the speaker simultaneously - OK" + vbCrLf
Else
TextLineCaps.Text = TextLineCaps.Text + " -Turning on the microphone and the speaker simultaneously - UNAVAILABLE" + vbCrLf
End If
If lcExtDevHandsetMicGain And lvLineCaps Then
TextLineCaps.Text = TextLineCaps.Text + " -Mic gain adjusting - OK" + vbCrLf
Else
TextLineCaps.Text = TextLineCaps.Text + " -Mic gain adjusting - UNAVAILABLE" + vbCrLf
End If
If lcExtDevHandsetSpeakerVolume And lvLineCaps Then
TextLineCaps.Text = TextLineCaps.Text + " -Speaker volume adjusting - OK" + vbCrLf
Else
TextLineCaps.Text = TextLineCaps.Text + " -Speaker volume adjusting - UNAVAILABLE" + vbCrLf
End If
Else
TextLineCaps.Text = TextLineCaps.Text + "Local phone handset - UNAVAILABLE" + vbCrLf
End If
End Sub
my problem is Dim lvLineCaps As KDTele.TxLineCaps i try local lvLineCaps As KDTele.TxLineCaps but it don't accept it and i try local lvLineCaps As Long too.
Ali Mohammad Hossein Zadeh