Sub phone_IncomingCall
timer1.Enabled = true 'Wait two seconds before pressing the Talk button.
End Sub
Sub Timer1_Tick
If duringCall Then
timer1.Enabled = false
hw.KeyPress(127) 'Toggle the speaker.
Else
hw.KeyPress(114) 'Simulate the green Talk button.
duringCall = true
End If
End Sub