Visual Basic.NET - Ayuda con imagen en datagridview

Dim IconoColumna As New DataGridViewImageColumn()
IconoColumna.Image = My.Resources.cofas22x22

Form1.DataGridView1.CurrentCell = Form1.DataGridView1(1, Lista)
Form1.DataGridView1.CurrentCell.Value = IconoColumna

He probado con este codigo y otros en el evento cellformating pero siempre me ocurre lo mismo en vez de mostrar la imagen muestra un valor de cadena referente a la imagen.

La tabla esta enlazada a una base de datos en la que el campo de la columna donde debe ir la imagen es de tipo cadena.

Gracias

dim myImage as image

myImage= My.Resources.cofas22x22

Dim IconoColumna As New DataGridViewImageColumn()
IconoColumna.Image = myImage
Form1.DataGridView1.CurrentCell = Form1.DataGridView1(1, Lista)
Form1.DataGridView1.CurrentCell.Value = IconoColumna

Prueba esto tambien (TOBITMAP)

Dim IconoColumna As New DataGridViewImageColumn()

IconoColumna.Image = My.Resources.cofas22x22.tobitmap '(Esto agregas)

Form1.DataGridView1.CurrentCell = Form1.DataGridView1(1, Lista)
Form1.DataGridView1.CurrentCell.Value = IconoColumna

Gracias Harold, pero no me funciona

El proposito es que si la columna del datagridview tiene el valor de cadena "1" se sustituya por una imagen determinada y si tiene el 2 por otra y asi sucesivamente. En vez de la imagen lo que aparece es :

DatagridviewImagecolumn{Name=,Index=-1}

Ten encuenta que estoy tratando de sobreescribir una columna con un valor string ("1","2", etc..) por un valor de otro tipo.

Dim myImage As Image
Dim myString As String
Dim rm As ResourceManager

rm = ResourceManager.CreateFileBasedResourceManager("MyResource", ".", Nothing)

' Obtiene la Imagen del recurso usando el metodo GetObject.
myImage = rm.GetObject("1") ' Tu valor cadenadatagridview "1" o "2"

' Obtiene la cadena de lrecurso.
myString = rm.GetObject("MyText")

DatagridviewImagecolumn.Image = myImage
Label1.Text = myString