Bir buton eklemen lazım
Private Sub Command1_Click()
Label1.Caption = Text1.Text
End Sub
Tam olarak ne programı yazdığını söylersen, sana daha çok yardımcı olabilirm.