Public Class frmOffenePlaetzen

    Private Sub frmOffenePlaetzen_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Globals.OffenePlaetze_Visible = False
    End Sub

    Private Sub frmOffenePlaetzen_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub

    Public Sub Refresh_Data(ByRef d As Object)
        Me.C1FreiePlätze.DataSource = Nothing
        Me.C1FreiePlätze.DataSource = d
        Me.C1FreiePlätze.DataMember = d.tablename
        Try
            Me.C1FreiePlätze.Splits(0).DisplayColumns(0).Visible = False
            Me.C1FreiePlätze.Splits(0).DisplayColumns(2).Visible = False
            Me.C1FreiePlätze.Splits(0).DisplayColumns(3).Visible = False
            Me.C1FreiePlätze.Splits(0).DisplayColumns(6).Visible = False
            Me.C1FreiePlätze.Splits(0).DisplayColumns(1).Width = 200
            Me.C1FreiePlätze.Columns(4).Caption = "Zeit"
            Me.C1FreiePlätze.Splits(0).DisplayColumns(5).Width = 50
        Catch ex As Exception
        End Try
    End Sub

    Private Sub TSBtnQuit_Click(sender As System.Object, e As System.EventArgs) Handles TSBtnQuit.Click
        Me.Close()
    End Sub
End Class