MS Excel

ja by som to riesil invidualne a kazdy objekt by som si zvlast namapoval tj.

napr:
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
aInfo("Label1")
End Sub

Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
aInfo("Label2")
End Sub

To na co se asi ptáš (nevím to jistě, ten těsnopis se docela špatně luští), jsi zřejmě našel: vytvoříš třídu se zapouzdřeným textboxem a v ní potřebnou obsluhu události.

Nic složitého na tom není, naopak.

Problém může být jen mentální.

Někde, obvykle při inicializaci musíš vytvořit objekty se svou třídou a do ní zapouzdřit ty textboxy. Pokud textboxy vhodně pojmenuješ, lze to udělat cyklem. Deklarace jednotlivých objektů se dá nahradit deklarací pole nebo collection, do kterých vytvořené objekty vložíš (kvůli úklidu).

Obvykle jde jen o pář řádků kódu a získáš univerzální jednotnou obluhu potřebných událostí na jednom místě.

Lubo díky za vyhecování. Máš pravdu, je to parádní.

UserForm2:Dim txt1 As New Class1, txt2 As New Class1, txt3 As New Class1, txt4 As New Class1

Private Sub UserForm_Initialize()
Set txt1.txtUni = TextBox1
Set txt2.txtUni = TextBox2
Set txt3.txtUni = TextBox3
Set txt4.txtUni = TextBox4
End Sub

Private Sub CommandButton1_Click()
Set txt1 = Nothing
Set txt2 = Nothing
Set txt3 = Nothing
Set txt4 = Nothing

Unload UserForm2
End Sub
Class1:Public WithEvents txtUni As msforms.TextBox

Private Sub txtUni_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
UserForm2.Label1.Caption = txtUni.Name
End Sub

Další události pro jednotlivé textboxy už definujete přímo v modulu třídy a nemusíte to dělat x-krát v mudulu formuláře

edit:
pokud je těch textboxů více - 10, 20 atd - je už v podstatě nereálné dělat to bez modulu třídy
v tom případě ani nedefinujeme 10, 20 atd proměnných, ale samozřejmě pole o 10, 20 atd prvcích typu Class1

Děkuji. Objevily se přede mnou nové obzory, ale jsou hooodně daleko.
Nějak jsem to rozchodil, ale otázek by bylo... chtěl bych si ujasnit:
Set txt1.txtUni = TextBox1txt1 je název nově vytvořeného objektu?
txtUni je název nově vytvořené události v modulu class? nebo co tento název představuje?
Znám zápis: Set proměnná=objekt , proměnná.něco se vztahuje jen k tomu modulu Class nebo se dá použít vždycky, a na co?