'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