อยากจะทำปุ่ม Print กับ Delete ใน GridView ให้ได้เหมือนใน DataGrid พี่ๆช่วยสอนหน่อยค่ะ

  Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBound
        If ((e.Item.ItemType = ListItemType.Item) Or (e.Item.ItemType = ListItemType.AlternatingItem)) Then
            'Dim filepic As String = "S" & e.Item.Cells(1).Text & "." & e.Item.Cells(2).Text '//กำหนดชื่อไฟล์รูปภาพ
            'Dim strpic As String = "<img width=40 height=40 src=" & filepic & " alt=" & filepic & "></a>" '//กำหนดข้อความสำหรับแสดงรูปภาพ
            'e.Item.Cells(0).Text = strpic '//นำรูปภาพไปแสดงที่คอลัมน์ที่ 0

            '//การแสดงรูปภาพเพื่อลบชั่วคราว, เรียกคืน, ลบถาวร
            If (e.Item.Cells(11).Text = "-") Then

                Dim strdel As String = "<a href='CheckDelete.aspx?id=" + e.Item.Cells(0).Text + " 'Onclick='return confirmDelete()''><img src='pic/delete.gif' alt='ลบชั่วคราว' width='40' height='40' border='0'></a>"
                e.Item.Cells(12).Text = strdel

            Else
                Dim strPack As String = "<a href='CheckPack.aspx?id=" + e.Item.Cells(0).Text + " 'Onclick='return confirmPack()''><img src='pic/pack.gif' alt='ลบถาวร' width='40' height='40' border='0'></a>"
                strPack = strPack + " <a href='CheckRecall.aspx?id=" + e.Item.Cells(0).Text + " 'Onclick='return confirmRecall()''><img src='pic/recall.gif' alt='เรียกคืน' width='40' height='40' border='0'></a>"
                e.Item.Cells(12).Text = strPack
            End If

            '//กำหนดให้มีการลิงค์รูปภาพเพื่อพิมพ์รายการเฉพาะสินค้า
            Dim strpicprint As String = "<a href='CheckPE.aspx?id=" + e.Item.Cells(1).Text + " 'Onclick='return confirmPrintEach()'' TARGET='_BLANK'><img width=40 height=40 src='pic/Print.bmp' alt='พิมพ์รายงานเฉพาะรายการ' width='22' height='23' border='0'></a>" '//กำหนดให้มีการลิงค์รูปภาพเพื่อพิมพ์รายการเฉพาะสินค้า
            e.Item.Cells(13).Text = strpicprint ' //กำหนดข้อความสำหรับแสดงรูปภาพstrpic;//นำรูปภาพไปแสดงที่คอลัมน์ที่ 4
            '//
        End If
    End Sub