Private Sub Button_HourConfirmation_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button_HourConfirmation.Click
 
        Form_HourConfirmation.ListView_HourConfirmation.View = View.Details
        Form_HourConfirmation.ListView_HourConfirmation.GridLines = True
        Form_HourConfirmation.ListView_HourConfirmation.Columns.Clear()
        Form_HourConfirmation.ListView_HourConfirmation.Items.Clear()
        For Each col As DataColumn In timetable.Columns
            Form_HourConfirmation.ListView_HourConfirmation.Columns.Add( _
              col.ToString)
        Next
        For Each row As DataRow In timetable.Rows
            Dim lst As ListViewItem
            lst = Form_HourConfirmation.ListView_HourConfirmation.Items.Add(If( _
              row(0) IsNot Nothing, row(0).ToString, ""))
            For i As Integer = 1 To timetable.Columns.Count - 1
                lst.SubItems.Add(If(row(i) IsNot Nothing, row(i).ToString, ""))
            Next
        Next
 
        Form_HourConfirmation.Show()
 
End Sub