VB用按鈕控制圖片大小和上下移動的問題

Question

<往上
Private Sub Command2_Click()
Imagel.Top = Imagel.Top + 300
If Imagel.Top > Form1.ScaleHeight Then
Imagel.Top = 0
End If
End Sub
<往下
Private Sub Command1_Click()
Imagel.Top = Image1.Top - 300
If Imagel.Top > Form1.ScaleHeight Then
Imagel.Top = 0
End If
End Sub
這到底是哪裡錯
還有
請給我用按鈕控制圖片 放大 縮小 的程式碼

上面那個我已經解決了
現在有Timer 的問題
我要讓文字移動
向跑馬燈那樣
可是我打程式碼之後
好像錯誤
可以幫我檢查一下哪錯嗎
If Label1.Left

Private Sub Timer1_Timer()
If Label1.Left

Private Sub Timer1_Timer()
If Label1.Left

上面的還沒打完
Label1.Left = Forml.ScaleWidth

Answer 1

Private Sub Command1_Click() '往下    Image1.Top = Image1.Top + 300    If Image1.Top > Form1.ScaleHeight - Image1.Height Then       Image1.Top = Form1.ScaleHeight - Image1.Height    End IfEnd SubPrivate Sub Command2_Click() '往上    Image1.Top = Image1.Top - 300    If Image1.Top < 0 Then       Image1.Top = 0    End IfEnd Sub'控制圖片放大縮小?不大懂你的意思,如果是單純要改變Image的大小就直接改變其Height及Width就行'如縮小1/2Image1.Width = Image1.Width * 0.5Image1.Height = Image1.Height * 0.5'放大1倍Image1.Width = Image1.Width * 2Image1.Height = Image1.Height * 2

2006-09-16 21:26:36 補充：
關於跑馬燈程式,知識┼有很多人問過,請參考http://tw.knowledge.yahoo.com/search/search_result?p=%E8%B7%91%E9%A6%AC%E7%87%88%22VB%22&sc=396540051&tab=1