Timertick事件
Dim lab1 As WinForm.Label = e.Form.Controls("Welcome")If lab1.Width + lab1.Left <= 0 Then lab1.left = e.Form.WidthElse lab1.left = lab1.left -6End If