网上冲浪更快更爽，下载带有 Google 工具栏的 Firefox

Public Const VK_TAB = &H9
Public Declare Sub keybd_event Lib \"user32\" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
KeyAscii = 0
keybd_event VK_TAB, 0, 0, 0
End If
End Sub