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