CONTOH VBCRLF

CONTOH VBCRLF

PublicClass Form1

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim x AsInteger

For x = 1 To 4

            TextBox1.Text = TextBox1.Text + "STMIK" + vbCr

Next

EndSub

PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim x AsInteger

For x = 1 To 4

            TextBox2.Text = TextBox2.Text + "STMIK" + vbCrLf

Next

EndSub

EndClass

OUTPUT: