编写vbnet代码，在用户选择时间段时，之前已经被选择过的时间段不可再选择，并且不显示在控件内

好的，我们可以使用DateTimePicker控件的BoldedDates属性来实现该功能。这个属性可以设置一个日期数组，用来指定哪些日期是加粗和不可选的。

具体代码如下：

Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
    Dim selectedDate As Date = DateTimePicker1.Value.Date
    Dim boldedDates As New List(Of Date)

    '查询数据库中已经预约的日期，并把它们添加到boldedDates数组中
    Dim connString As String = "Data Source=myServerAddress;Initial Catalog=myDataBase;User ID=myUsername;Password=myPassword;"
    Dim conn As New SqlConnection(connString)
    conn.Open()

    Dim selectCommand As New SqlCommand("SELECT DISTINCT booking_time FROM reservation WHERE booking_date = @booking_date", conn)
    selectCommand.Parameters.AddWithValue("@booking_date", selectedDate)
    Dim reader As SqlDataReader = selectCommand.ExecuteReader()

    While reader.Read()
        boldedDates.Add(reader.GetDateTime(0))
    End While

    conn.Close()

    '设置BoldedDates属性，把boldedDates数组中的日期加粗和不可选
    DateTimePicker1.BoldedDates = boldedDates.ToArray()
End Sub

在这个代码中，我们首先获取用户选择的日期selectedDate。然后，我们查询数据库中已经预约的日期，并把它们添加到boldedDates数组中。最后，我们设置BoldedDates属性，把boldedDates数组中的日期加粗和不可选。

这样，当用户选择一个日期后，我们就可以把已经预约的日期加粗并且不可选，让用户无法选择这些日期。