How to receive phone call on pc over modem

See more:

VB6

phone

Hi every one
I need a code in vb6 to receive phone call over modem when connect phone line with computer , I tried many codes like

Private Sub Form_Load()
MSComm1.Settings ="9600,N,8,1"
For i = 1 To 10
MSComm1.CommPort = i
On Error GoTo N
MSComm1.PortOpen = True
N:
If MSComm1.PortOpen = True Then
Exit For
End If
Next
End Sub

Private Sub MSComm1_OnComm() 
If MSComm1.CommEvent Then 
MsgBox " You have a phone call " 
End If 
End Sub

when I tried to make call modem work great
if there specific modem card to receive phone call or what is my problem

Thank you