به لطف کدهای اقای فرهانی من موفق شدم تا حال اکثر موارد تلفن گویا را جواب بگیرم البته با خطاهای جزئی که انشاءالله برطرف می کنم اما برای ظبط صداموفق نشدم اگه کسی می تونه کمک کنه البته کد زیر را هم گیر آورده ام اما روی نام فایل خطامی دهد
Public Sub recordCallStart()
'Dim termSupport As ITTerminalSupport
'Dim recordTerminal As ITTerminal
'Dim mediaRecord As ITMediaRecord
'Dim mediaControl As ITMediaControl
'termSupport = (ITTerminalSupport) line;
Set ObjTerminalSupport = ObjAddress
'recordTerminal=callControl.RequestTerminal(TapiCo nstants.CLSID_String_FileRecordingTerminal,
'
'TapiConstants.TAPIMEDIATYPE_MULTITRACK,
'
'TAPI3Lib.TERMINAL_DIRECTION.TD_RENDER);
'
Set ObjRecordTerminal = ObjCallControl2.RequestTerminal(TapiConstants.CLSI D_String_FileRecordingTerminal, _
TapiConstants.TAPIMEDIATYPE_MULTITRACK, _
TAPI3Lib.TERMINAL_DIRECTION.TD_RENDER)
Set ObjMediaRecord = ObjRecordTerminal
Set ObjMediaControl = ObjRecordTerminal
ObjMediaRecord.FileName = "c:\test.wav"
ObjCallControl2.SelectTerminalOnCall (ObjRecordTerminal)
ObjMediaControl.Start
'ObjMediaControl.Stop
End Sub