i want an eps file image to b grayscale i cant get it please help me to get
1: opening a eps file
2: changing a color mode to grayscale
3: saving it
4: this has to done in a command button click
MY CODING
--------------
Private Sub Command1_Click()
Fldr = "C:\pic.eps"
Dim b As New EPSSaveOptions
Dim bmData As BitmapData
Dim stride As Integer
stride = bmData.stride
Dim Scan0 As System.IntPtr
Scan0 = bmData.Scan0
Dim p As Machine.BytePtr
Pic.Width = b.Width
Pic.Height = b.Height
Dim nOffset As Integer
nOffset = stride - b.Width * 3
Dim red, green, blue As Byte
Dim y As Integer
For y = 0 To (b.Height)
Dim x As Integer
For y = 0 To (b.Width)
blue = p(0)
green = p(1)
red = p(2)
p(2) = CByte(0.299 * red + 0.587 * green + 0.114 * blue)
p(0) = p(2)
p(1) = p(2)
p = p.PtrForOffset(3)
Next
p = p.PtrForOffset(nOffset)
Next
b.UnlockBits (bmData)
SavePicture b, "C:\" & "he.eps"
End Sub