北京市安监局官网:请求帮我看一看这段vb代码，先谢了。

'在窗体上添加一个TextBox控件，实现窗体总在前面、文字滚动、鼠标控制文字滚动三个效果。
'请问怎样在tmp=这一处定义变量？
_________________________________________________
Option Explicit

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As

Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long,

ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Const HWND_TOPMOST& = -1
' 将窗口置于列表顶部，并位于任何最顶部窗口的前面
Private Const SWP_NOSIZE& = &H1
' 保持窗口大小
Private Const SWP_NOMOVE& = &H2
' 保持窗口位置

______________________________________________

Private Sub Form_Click()
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or

SWP_NOSIZE
' 将窗口设为总在最前
End Sub
_________________________________________________
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As

Single, y As Single)
Timer1.Enabled = False
'鼠标控制
End Sub

___________________________________________________________

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, x As

Single, y As Single)
Timer1.Enabled = True
'鼠标控制
End Sub
______________________________________________________________
Private Sub Timer1_Timer()
tmp = Text1.Text
Text1.Text = Right(tmp, Len(tmp) - 1) & Left(tmp, 1)
'TextBox内的滚动字体
End Sub