>Private Sub Timer1_Timer()
大文字ってものすごく読みづらいんですけど、
VB環境のデフォルトを全部小文字にできませんか?
private sub timer1_timer()