koding fungsi string

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub BLeft_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BLeft.Click
        TextBox2.Text = Strings.Left(TextBox1.Text, 3)
    End Sub

    Private Sub BRight_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BRight.Click
        TextBox2.Text = Strings.Right(TextBox1.Text, 3)
    End Sub

    Private Sub BMid_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BMid.Click
        TextBox2.Text = Strings.Mid(TextBox1.Text, 2, 2)
    End Sub

    Private Sub BLen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BLen.Click
        TextBox2.Text = Strings.Len(TextBox1.Text)
    End Sub
End Class