问两个VB的题目【50分】

1.请用基础点的，简单些的VB程序代码，编写出文字从左边移动到右边，从上面移动到下面，从下面移动到上面，从右边移动到左边的程序，每个移动分别用一个按钮，并且文字完全出去了还能再从起始处再次滚动无数遍。
2.请编写一个VB程序：再文本框中输入一个数字，然后点击按钮，就开始从输入的数字倒计时，一秒钟一个数字，到0为止。点击停止也可以停止。

第一题，建立Command1，Command2，Command3，Command4，Timer1。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Dim l As Long, t As Long, w As Long, h As Long, i As Integer, j As Long

Private Sub Command1_Click()
i = 1
End Sub

Private Sub Command2_Click()
i = 2
End Sub

Private Sub Command3_Click()
i = 3
End Sub

Private Sub Command4_Click()
i = 4
End Sub

Private Sub Form_Load()
Label1.AutoSize = True
l = Left
t = Top
w = Width
h = Height
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
Select Case i
Case 1
If j < w Then
Label1.Move j, h / 2
Else
j = 0
End If
j = j + 10
Case 2
If j > 0 Then
Label1.Move j, h / 2
Else
j = w
End If
j = j - 10
Case 3
If j < h Then
Label1.Move w / 2, j
Else
j = 0
End If
j = j + 10
Case 4
If j > 0 Then