Resim içeren herhangi bir form veya kontoldeki resmi nasıl BMP olarak kaydedeceğinizi gösteriyoruz. Örnek programımız öncelikle form üzerinde renkli daireler çiziyor daha sonra da form içeriğini C: sürücüsünde TEST.BMP olarak kaydediyor. Tüm bu işlemleri gerçekleştirmek için form üzerine bir kez tıklamanız yeterli.

Private Sub Form_Click()
Dim CX, CY, Limit, Msg, Radius  '  Değişkenleri tanımla
ScaleMode = 3   '  Ölçeği piksel olarak tanımla
AutoRedraw = -1 '  AutoRedraw özelliğini aç.
Width = Height  '  Yüksekliği genişliğe eşitle
CX = ScaleWidth / 2 '  X posizyonunu ayarla
CY = ScaleHeight / 2
Limit = CX
For Radius = 0 To Limit
Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
DoEvents
Next Radius
Msg = ' Form üzerindeki görüntüyü kaydetmek için Tamam'a tıklayın.' 
MsgBox Msg
SavePicture Image, ' c:\TEST.BMP'   ' Görüntüyü kaydet
End Sub