Das ist aber VB6, Phage wollte es aber in VB2005! Dort sieht das Ganze ein wenig anders aus:
Zitat Zitat
Sub txt1()
Dim endSub As Object
Dim lbl1 As Object
Sub txt1.Change()
lbl1.Caption = txt1.Text
endSub()