Dim a() As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ReDim a(5)
Me.Text = a.Count
End Sub
Function CreateArrayInt32(ByVal argArraySize As Integer) As Integer()
If (argArraySize > 0 ) Then
Dim retArray() As Integer = New Integer(argArraySize)
Return retArray
Else
Return Nothing
End If
End Function
'ในการระบุขนาดหรือจำนวนสมาชิกใน array ไม่จำเป็นต้องลบหนึ่ง
'การลบจะใช้ในการรุะบุตำแหน่งของสมาชิกต่างหากค่ะ