How to intercept the SMS

I use the outlook.dll in my device HTC HD2,the sms could sent ,but the receive sms couldn't intercept.
who can help me?
the code is this

Sub Globals
'Declare the global variables here.

End Sub

Sub App_Start
Form1.Show
sms.New2
Intercept.New1
Sysstate (MessagingSmsUnread)
End Sub
Sub Intercept_MessageReceived
Sms.Value = Intercept.ReceivedMessage
textBox1.Text = sms.Body
textBox2.Text = Time(sms.DateReceived)
textBox3.Text = sms.From
End Sub
:sign0085:

Your code is fine. I think that there is an issue with HTC HD2 devices which fetch the SMS messages before this method is called.