Dizi Komutu
Public Class Form1
Dim emre(4) As Byte
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
emre(0) = 1
emre(1) = 2
emre(2) = 3
emre(3) = 4
Label1.Text = emre(0)
Label2.Text = emre(1)
Label3.Text = emre(2)
Label4.Text = emre(3)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
emre(0) = TextBox1.Text
Label1.Text = emre(0)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
emre(1) = TextBox1.Text
Label2.Text = emre(1)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
emre(2) = TextBox1.Text
Label3.Text = emre(2)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
emre(3) = TextBox1.Text
Label4.Text = emre(3)
End Sub
End Class