Smazßnφ text∙ ze vÜech TextBox∙ na formulß°i
Postup:
Tento k≤d p°idejte na udßlost Click tlaΦφtka, kterΘ mß
vymazat obsah textbox∙.
'Pokud ji₧ nenφ ₧ßdn²
dalÜφ textbox, generuje se chyba
On Error GoTo Ready
Dim txt As TextBox
For Each txt In Form1 '
Cyklus p°es vÜechny textboxy ve formulß°i
txt.Text = ""
Next txt
Ready:
Exit Sub