哪位能还原数组中的值为图像文件

Returns current video frame image as array of RGB values.
Syntax
Function GetRGB

Return value
(none)

Remarks
.
Example
Dim a() As Byte
a = VideoCapX1.GetRGB
For y = 0 To 239 慽mage height is 240 pixels in this case
For x = 0 To 319 �320 pixels
i = (y * (320 * 3)) + (x * 3)
'NOTE: byte order isn't RGB, it's BGR
PSet (x, y), RGB(a(i + 2), a(i + 1), a(i))
Next x
Next y

请问，如何还原为图像文件？