Multi Line TextBox

PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
1.	TextBox	1	MultiLine	True
2.	CommandButton	1	Caption	Add

Masukkan souce ini ke dalam Form :Private Sub Command1_Click() Dim NewText As String With Text1 'Ganti teks 'ARBI Blog's' dengan teks yang Anda inginkan ditambah NewText = "ARBI Blog's" .SelStart = Len(.Text) .SelText = vbNewLine & NewText End With End Sub Private Sub Form_Load() Text1.Text = "ARBI Blog's" End Sub