Hi eveyone,

Dim filesys As New FileSystemObject
Dim file1 As TextStream
Dim fileobj As File

Set file1 = filesys.CreateTextFile("c:\test.bmp", True)

Clipboard.Clear
Clipboard.SetData PicFinal.Image, vbCFBitmap

file1.WriteLine Clipboard.GetData
file1.Close

**

I am trying to copy a file in the picture box to a bitmap file. It didnt work..can anyone please rectify this error.

Thanx in advance.

Venkat.