Private Sub exit_Click()
Unload Me '退出
End Sub
Private Sub Timer1_Timer()
If Label1.Left + Label1.Width > 0 Then '尚未完全左移出窗体
Label1.Left = Label1.Left - 100 '移动的速度
Else
Label1.Left = Form1.Width '从窗体右边出来
End If 作者: andylee 时间: 2007-6-29 08:32 标题: re:呵呵,学习就是得一步一步来