各位高手好
最近小弟 遇到了一個無解的問題
程式碼如下:
'移動
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Pic1.Left = Pic1.Left + 10
Call 暫停(1000)
Pic1.Left = Pic1.Left + 10
End Sub
'放大縮小
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Pic1.Size = New Point(Pic1.Width * 2, Pic1.Height * 2)
Call 暫停(1000)
Pic1.Size = New Point(Pic1.Width * 2, Pic1.Height * 2)
End Sub
'暫停
Sub 暫停(a As Integer)
Thread.Sleep(a)
End Sub
點擊 Button1時 可以讓pic1 往右移動10格 在停頓一秒 然後再往右移動
但是 點擊Button2時 不能讓pic2 放大2倍 在停頓一秒 在放大2倍
只能 顯示 放大4倍的結果
不知問題出在哪 請各位高手解惑 謝謝

釋放控制權，doeven

Application.Doeven()

謝謝j大跟g大 原來有這個指令 又上了一課 謝謝

太厲害了 亂指一通誤人子弟 問人的搞不清楚就感激涕零

給m大 我知道j大跟g大的給的單字 有小小錯誤我在打程式有發現 不過我認為給個方向是非常重要的給方向過後 就可以用google查詢 相關指令了所以我非常感謝