Menghapus Semua Text Pada Beberapa TextBox

PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
1.	CommandButton	1	Caption	Hapus
2.	TextBox	3	Text	Text1	Text1.Text
				Text2	Text2.Text
				Text3	Text3.Text

Masukkan souce ini ke dalam Form :Private Sub Command1_Click() Dim Contrl As Control For Each Contrl In Form1.Controls If (TypeOf Contrl Is TextBox) Then Contrl.Text = "" Next Contrl End Sub