problem saving image

[haroon620]

i prepare a userfom as entery form
i want to save the pic alongwith the name but there just show the numerical value instead of image in excel sheet
i write the code as


Dim haroorn As Long
Dim abc As Worksheet


Set abc = Worksheets("Sheet1")
haroon = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
With abc
With abc
.Cells(haroon + 1, 1).Value = Me.TextBox1.Value
.Cells(haroon + 1, 2).Value = Me.TextBox2.Value
.Cells(haroon + 1, 3).Value = Me.Image1.Picture
.Cells(haroon + 1, 4).Value = Me.TextBox3.Value

End With


Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.image1.image = ""

End with

End sub

can someone help to solve the problem