Private Sub ugWerte_InitializeRow(ByVal sender As Object, ByVal e As _
  Infragistics.Win.UltraWinGrid.InitializeRowEventArgs) Handles _
  ugWerte.InitializeRow
 
    Try
            Dim d As New Date(CInt(Mid(e.Row.Cells("z").Value, 1, 4)), CInt(Mid( _
              e.Row.Cells("z").Value, 5, 2)), 1)
         e.Row.Cells("z").Value = Format(d, "yyyy MMM")
       Catch ex As Exception
        Throw ex
    End Try
End Sub