Public Class Form1
Dim t1 As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
t1 = TextBox1.Text
TextBox2.Text = Microsoft.VisualBasic.Left(t1, 4)
TextBox3.Text = Microsoft.VisualBasic.Right(t1, 4)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
No comments:
Post a Comment
Note: only a member of this blog may post a comment.