Visual Basic关于KeyPress事件的问题

怎么样才能在Visual Basic 6.0用KeyPress事件实现文本框制表位的移动，而不是文本框的移动？

 Private Sub Form_KeyPress(KeyAscii As Integer) 
if keyascii = vbkeyright then
    keyascii = 0
end if
sendkeys "{tab}"
End Sub