فوری:پاک کردن محتوای آرایه؟

[soheil_programmer]

با سلام

من یک آرایه از نوع Byte تعریف کردم به صورت زیر اما در مواقعی میخوام محتوای این آرایه را که برام حکم بافر را داره پاک کنم؛ چگونه میشه این کار را انجام داد؟؟



Public IMGArr() As Byte


Public Sub SaveBitmap(ByVal SourceFile As String)
Dim Pointer As Long
Dim SizeOfThefile As Long

Pointer = lOpen(SourceFile, OF_READ)

SizeOfThefile = GetFileSize(Pointer, lpFSHigh)
lclose Pointer

ReDim IMGArr(SizeOfThefile)

Open SourceFile For Binary Access Read As #1
Get #1, , IMGArr
Close #1
End Sub