vb实现计算器backspace功能

vb中如何实现backspace的功能呢？
算法是怎样的

[解决办法]
使用SendMessage发送该消息即可

[解决办法]
If (text1.Text <> "") Then text1.Text = Left(text1.Text, Len(text1.Text - 1))