ラベルをランダムに動かしてみます。スピードを2種類設定します｡

1. CommandButton4を作ってそのcaptionを Fast とする。　
2. ダブルクリックしてコードを書く
   Timer1.Interval = 200
   Timer1_Timer
   　　（ここをクリックすると画像は速く移動）　
3. CommandButton5を作ってそのcaptionを Slow とする。　
4. ダブルクリックしてコードを書く。
   Timer1.Interval = 1500
   Timer1_Timer
   　　（ここをクリックすると画像は遅く移動）　
5. Timer1_Timer に次を追加
   Label4.Left = Rnd() * 400
   Label4.Top = Rnd() * 400
   
6. Label4_click を クリックするとビープ音を鳴らして終わるようにコードを書きます｡
   

　　　　　さあ，実行してこのラベルをマウスで捕まえましょう。

戻る