C to VB

can anyone translate this to VB.NET...

private void DataGrid1_ItemCreated(object sender, System.Web.UI.WebControls.DataGridItemEventArgs e)
{
switch(e.Item.ItemType)
{
case ListItemType.Item:
case ListItemType.AlternatingItem:
case ListItemType.EditItem:
case ListItemType.SelectedItem:
WebControl c = (WebControl)(e.Item.Cells[2].Controls[0]);
c.PreRender += new EventHandler(this.DataGridDeleteButton_PreRender);
c.Attributes["itemId"] = ((DataRowView)(e.Item.DataItem))["CategoryID"].ToString()! ;
break;
}
}

private void DataGridDeleteButton_PreRender(object sender, System.EventArgs e)
{
WebControl c = (WebControl)sender;
c.Attributes["onclick"] = String.Format("ConfirmDelete('{0}',this.itemId);",c.UniqueID);
}

Code:

---

Public Sub DataGrid1_ItemCreated(ByVal sender as Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs)

    Select Case e.Item.ItemType
          case ListItemType.Item
          case ListItemType.AlternatingItem
          case ListItemType.EditItem
          case  ListItemType.SelectedItem
              Dim c As WebControl = CType(e.Item.Cells(2).Controls(0), WebControl)
              c.PreRender = New EventHandler(Me.DataGridDeleteButton_PreRender)
              c.Attributes("itemId") = CType(e.Item.DataItem), DataRowView)("CategoryID".ToString()

    End Select
End Sub

Private Sub DataGridDeleteButton_PreRender(byVal sender As Object, Byval e As System.EventArgs)
    Dim c As WebControl  = CType(sender, WebControl)
    c.Attributes("onclick") = String.Format("ConfirmDelete('{0}',this.itemId);",c.UniqueID)


End Sub

---

thank you....


damn those lawyers to hell!