Kako da mi se na jednom kliku dugmeta nesto napise u labeli a na drugom nesto drugo

Code:
Dim iCounter as integer

Code:
iCounter = iCounter + 1

Select Case iCounter
   Case 1
      Label1.Caption = Text1.Text

   Case 2
      Label2.Caption = Text1.Text

   Case Else
      'ovde ubacis neki kod koji hoces da se izvrsi kada si vec popunio obe labele, 
      'recimo mozes da resetujes counter pa da se proces ponavlja
      iCounter = 0

End Select