Dim fun As String→這具代表啥意思？
　　　　　　　　　省略ㄝ可以ＲＵＮㄟ

Private Sub cmdRec_Click()
t1.Enabled = True
End Sub

Private Sub cmdStop_Click()
t1.Enabled = False

End Sub

Private Sub Form_Load()
pic1.Top = 300
pic1.Left = 600
t1.Enabled = False

End Sub

Private Sub t1_Timer()
Do Until pic1.Left > 6000
pic1.Left = pic1.Left + 10
Loop
Do Until pic1.Top > 3000
pic1.Top = pic1.Top + 10
Loop
Do Until pic1.Left < 600
pic1.Left = pic1.Left - 10
Loop
Do Until pic1.Top < 300
pic1.Top = pic1.Top - 10
Loop
End Sub