[ducthuan]

Hi, this question might be stupid for someone but that's all i want to ask for now.

Thanks.

[digioz]

Here is one way to do it:

Code:

Module Module1
    Sub Main()
        DoArrayResize()
    End Sub
    Sub DoArrayResize()
        Dim i As Integer = 0
        ' the original array has 10 items
        Dim a() As Integer = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}
        ' lets say you want to remove element a(3) = 3
        For i = 3 To a.Length - 2
            a(i) = a(i + 1)
        Next
        a(a.Length - 1) = Nothing
        ReDim Preserve a(a.Length - 2)
    End Sub
End Module