Где ошибка в счетчике???

Код в модуле:
Option Explicit
Public ButtonClicked As Integer

Код на формах:

Option Explicit
Private Sub Command1_Click()
ButtonClicked = ButtonClicked + 1
Me.Text1.Text = "выбрано" & CStr(ButtonClicked)
End Sub
Private Sub Command2_Click()
Form2.Show
Form1.Hide
End Sub
Private Sub Form_Load()
If ButtonClicked > 0 Then
Me.Text1.Text = "выбрано" & CStr(ButtonClicked)
Else:
Me.Text1.Text = "выбрано"
End If
End Sub

Option Explicit
Private Sub Command1_Click()
ButtonClicked = ButtonClicked + 1
Me.Text1.Text = "выбрано" & CStr(ButtonClicked)
End Sub
Private Sub Command2_Click()
Form3.Show
Form2.Hide
End Sub
Private Sub Form_Load()
If ButtonClicked > 0 Then
Me.Text1.Text = "выбрано" & CStr(ButtonClicked)
Else:
Me.Text1.Text = "выбрано"
End If
End Sub

..............
Option Explicit

Private Sub Command1_Click()
ButtonClicked = ButtonClicked + 1
Me.Text1.Text = "выбрано" & CStr(ButtonClicked)
End Sub

Private Sub Command2_Click()
Form1.Show
Form5.Hide
Form1.Text1.Refresh
End Sub
Private Sub Form_Load()
If ButtonClicked > 0 Then
Me.Text1.Text = "выбрано" & CStr(ButtonClicked)
Else:
Me.Text1.Text = "выбрано0"
End If
End Sub


ВСЕ РАБОТАЕТ ПОКА НЕ ПРОИСХОДИТ ВОЗВРАТ К ФОРМЕ1. Даже если выбрано уже 5 кликов при повторном открытии в ФОРМЕ1 снова :

Form1.Text1.Text =
" уже выбрано "0".

Чтение ButtonClicked происходит про Form_Load
Форма была уже загружена и при возврате на форму1 не происходит повторног чтения из ButtonClicked

Перенеси код в Form_Activate


Добавлено @ 14:11
Все отлично работает.Дай Вам Бог здоровья!!!

Leonidas, только не плоди в следующий раз одинаковые вопросы в разных темах плиз.

Двоеточие после else необязательно (см. то, что сказал Naghual )