venkatraman_r
Nov 10th, 1999, 11:28 AM
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.
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.