Private Sub Text0_Click()
 If Text0.Tag = True Then
    Text0.Tag = False
    Text0.SelStart = 0
    Text0.SelLength = 0
    'Text0.SelLength = Len(Text0)   ' Ovo se koristi ako zelis da se selektira cel tekst
  End If
End Sub

Private Sub Text0_GotFocus()
  Text0.Tag = True
  Text0.SelStart = 0
  Text0.SelLength = 0
  'Text0.SelLength = Len(Text0)    ' Ovo se koristi ako zelis da se selektira cel tekst
End Sub

Private Sub Text0_KeyUp(KeyCode As Integer, Shift As Integer)
  Text0.Tag = False
End Sub