Encriptación de Imagen

Primero te puedo sugerir como capturar screem
Msg = SystemDir
Me.MousePointer = 11
' Press Alt.
keybd_event VK_MENU, 0, 0, 0
DoEvents
' Press Print Scrn.
keybd_event VK_SNAPSHOT, 1, 0, 0
DoEvents
' Release Alt.
keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
Luego te sugiero que los trates con el paint basico u otra aplicacion
Dim lValDev
lValDev = ShellExecute(Me.hwnd, "Open", SystemDir & "mspaint.exe", "", "", 1)
DoEvents
y luego enviarle
SendKeys "%EP"
SendKeys "%{F4}"
SendKeys "{ENTER}"
Msg = App.Path & "Imagenes" & Text1
SendKeys (Msg)
SendKeys "{TAB}"
SendKeys "(J)"
SendKeys "{ENTER}"
Me.MousePointer = 0
Donde en el text1 esta el nombre de la imagen, lo cual es lo que vas a guardar en la BD
Suerte...