Private Sub dgv_CellFormatting(sender As Object, _
        e As DataGridViewCellFormattingEventArgs) Handles dgv.CellFormatting
 
        If e.ColumnIndex = 0 And e.RowIndex > -1 Then
           If Not IsDBNull(e.Value) Then
              e.Value = CDate(e.Value).ToString("hh:mm")
              e.FormattingApplied = True
           End If
        End If
  End Sub