Tvoj problem je asi to ze robis to cele
Select Case e.Location.X
Case Is < d.Sirka \ 2
d.Pozice = 0
Case Is > pboxPlatno.Width - (d.Sirka \ 2)
d.Pozice = pboxPlatno.Width - d.Sirka
Case Else
d.Pozice = e.Location.X - (d.Sirka \ 2)
End Select
aj ked je ten timer disablovany. Preto ti pisu daj si test na zaciatok tej procedury.Alebo mas v tom programe logicky nejake nezmysly napr. ze timer1 v jedneom mieste neni timer1 na inom mieste, alebo tam niekde zas ten timer zapinas to si musis najst ty.