>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.