投稿者 葉月  (社会人) 投稿日時 2009/4/7 06:09:02

単純にまとめました。

Case 0

Timer1.Enabled = True
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer5.Enabled = False

Case 1

Timer1.Enabled = True
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer5.Enabled = False

Case 2

Timer1.Enabled = True
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer5.Enabled = False


Case0-2は、.Interval の値だけしか違いませんね。
関数でまとめられます。


If dx < 600 Then
'省略  
ElseIf dx >= 600 Then
'省略  
End If


省略の中は、dxとdyの値が違うだけです。
ここも引数を与えるだけで、関数化できます。

ここのスレッドも一読しておくといいかもしれません。
http://rucio.groupsite.jp/commu/ThreadDetail.aspx?ThreadId=9048