Visual Basic - Esto se puede hacer??

hola, lo que yo quiero hacer es cargar unas fotos en una matriz tipo picture y despues guardarla en archivo para no necesitar mas lo .jpg !
no se si me explico, aca va el programita que hice para generar estos archivitos, pero me tira error !! esto se puede hacer

Private Sub Form_Load()
Dim X(15) As Picture

Set X(0) = LoadPicture("c:\fotos\Blanco.jpg")
Set X(1) = LoadPicture("c:\fotos\Beso_2_1.jpg")
Set X(2) = LoadPicture("c:\fotos\Beso_3_1.jpg")
Set X(3) = LoadPicture("c:\fotos\Beso_4_1.jpg")
Set X(4) = LoadPicture("c:\fotos\Beso_1_2.jpg")
Set X(5) = LoadPicture("c:\fotos\Beso_2_2.jpg")
Set X(6) = LoadPicture("c:\fotos\Beso_3_2.jpg")
Set X(7) = LoadPicture("c:\fotos\Beso_4_2.jpg")
Set X(8) = LoadPicture("c:\fotos\Beso_1_3.jpg")
Set X(9) = LoadPicture("c:\fotos\Beso_2_3.jpg")
Set X(10) = LoadPicture("c:\fotos\Beso_3_3.jpg")
Set X(11) = LoadPicture("c:\fotos\Beso_4_3.jpg")
Set X(12) = LoadPicture("c:\fotos\Beso_1_4.jpg")
Set X(13) = LoadPicture("c:\fotos\Beso_2_4.jpg")
Set X(14) = LoadPicture("c:\fotos\Beso_3_4.jpg")
Set X(15) = LoadPicture("c:\fotos\Beso_4_4.jpg")

FileNum = FreeFile

Open "C:\Beso.Pic" For Input As FileNum

For n = 0 To 15
Print #FileNum, X(n)
Next n

Close #FileNum

End Sub

Se puede hacer pero tendrías que crear un Type para guardar ese tipo de archivo, por ejemplo:

Public Type FormatoPic
Indice As Integer
Imagen As Byte()
End Type

Y luego cargar el vector con ese tipo y guardarlo con Put, en http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbenlr98/html/vastmputx.asp tienes un ejemplo.

Mira estuve probando pero no me sale! no podes pasarme bien bien como seria con el ejemplo que yo puse en la pregunta. Dado que me tira todo tipo de errores !!

GRACIASSSSSS

Hola amigo, si alguna vez te pasan eso dilo en el foro, por que yo tambien quiero hacerlo.

Por favor el que sepa que ponga un ejemplo concreto !!

El problema es este.... tengo muchos .jpg y quiero no necesitar los jpg en mi programa, por lo tanto mi idea es ponerlos todos en una archivo onda FOTOS.DAT (vean la pregunta inicial que esta el programa)

Private Sub Form_Load()
Dim X(3) As Picture
Set X(1) = LoadPicture("c:\fotos\Beso_2_1.jpg")
Set X(2) = LoadPicture("c:\fotos\Beso_3_1.jpg")
Set X(3) = LoadPicture("c:\fotos\Beso_4_1.jpg")

FileNum = FreeFile

Open "C:\FOTOS.DAT" For Input As FileNum

For n = 1 To 3
Print #FileNum, X(n)
Next n

Close #FileNum

End Sub

Alguien dijo que use un registro, pero para esto tengo que definir el tamaño de los mismos para poder guardarlos como Random y no se cuanto puede ocupar una foto de esta forma !!

Aparte cuando le pongo el tipo de variable Byte me dice que la sobrepaso !!

Por favor que alguien de una Caso en concreto !! un ejemplo con este mismo que yo mande, pero que ande !! PLISSSS

Gracias de antemano....