Числа

[Max!]

Есть Textbox1 и кнопка она постоянно делает +1 :

Код: Выделить всё

Private Sub Form_Load()
textbox1.text = "0"
end sub

Private Sub Command1_Click()
textbox1.caption = textbox1.caption +1
End Sub


Вопрос: Как сделать постоянную проверку , если в Textbox1 будет "2 , 4 , 8 , 12 , 14 , 18 , 20 и тд..." такие числа, тоесть через два и четыре по очереди да "+"бесконечность и до "-"бесконечности ?
С уважением Max!

[EvilCoder]

<DELETE>

[Max!]

Ой извените я ошибся не caption а "textbox1.Text" !
Постоянная проверка - Дапустим в textbox1.Text = "1" я с кнопкой плюсую еще "+1" надо Timer использовать чтобы он проверял если в Textbox1 будет "2 , 4 , 8 , 12 , 14 , 18 , 20 и тд..." такие числа, тоесть через два и четыре по очереди да "+"бесконечность и до "-"бесконечности ! Но как это сделать какой алгоритм?

[EvilCoder]

<DELETE>

[Max!]

Не совсем что надо но , дапустим число 2 и мсг "Четное" а следущий мсг через 4"ре числа иоесть мне не важно четные или нет , мсг должен выскакивать сначало через 2"а числа а патом через 4"ре и так сначало (нет разницы на какое число паподет на 13 , 11 и тд. важно чтобы это происходило через 2 и 4 числа)

[EvilCoder]

<DELETE>

[Kostyan]

Можно ещё проще:

Код: Выделить всё

Public C As Long

Private Sub Command1_Click()
Text1.Text = Val(Text1.Text) + 1
C = C + 1
If C = 2 Then MsgBox "2"
If C = 6 Then
  MsgBox "4"
  C = 0
End If
End Sub


С - должна быть объявлена глобально.
И таймер тут нафиг не нужен!