[Uzvern]

Вот ещё :


Timer1.Tick
Dim i
i=i+1

как сделать так : если i=четному числу(2,4,6 и т.д.), то вылетает MsgBox(123), а если не четному(1,3,5 и т.д.), то вылетет MsgBox (098)

P.S. Процесс может прдолжаться до бесконечности, проэтому прописывать все значения бесполезно