Public Class Form1
    Inherits System.Windows.Forms.Form
 
#Region " Windows Form Designer generated code "
 
    Dim dt As DataTable
    Dim WithEvents dv As DataView
    Dim WithEvents cm As CurrencyManager
 
    Dim WithEvents btb2 As Binding
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        SqlDataAdapter1.Fill(DataSet11)
 
        dt = DataSet11.Orders
        dv = dt.DefaultView
        cm = Me.BindingContext(dv)
 
        'dt.Rows(1)("ShippedDate") = DBNull.Value
 
        txtOrderId.DataBindings.Add(New Binding("Text", dv, "OrderId"))
 
        btb2 = New Binding("Text", dv, "ShippedDate")
        txtShippedDate.DataBindings.Add(btb2)
 
        buildListBox1()
    End Sub
 
    Private Sub buildListBox1()
        Dim al As New ArrayList
        For Each dvr As DataRowView In dv
            If dvr("ShippedDate") Is DBNull.Value Then
                al.Add(DateTime.MinValue.ToString("dd.MM.yyyy hh:mm"))
            Else
                al.Add(CDate(dvr("ShippedDate")).ToString("dd.MM.yyyy hh:mm"))
            End If
        Next
        ListBox1.DataSource = al
        ListBox1.SelectedIndex = cm.Position
    End Sub
 
    Private Sub btb2_Format(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.ConvertEventArgs) Handles btb2.Format
        If e.Value Is DBNull.Value Then
            e.Value = DateTime.MinValue.ToString("dd.MM.yyyy hh:mm")
            Return
        End If
        Try
            e.Value = CDate(e.Value).ToString("dd.MM.yyyy hh:mm")
        Catch ex As System.Exception
            e.Value = DateTime.MinValue.ToString("dd.MM.yyyy hh:mm")
        End Try
    End Sub
 
    Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnNext.Click
        cm.Position += 1
    End Sub
 
    Private Sub bntPrevious_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles bntPrevious.Click
        cm.Position -= 1
    End Sub
 
    Private Sub dv_ListChanged(ByVal sender As Object, ByVal e As _
      System.ComponentModel.ListChangedEventArgs) Handles dv.ListChanged
        buildListBox1()
    End Sub
 
     Private Sub cm_CurrentChanged(ByVal sender As Object, ByVal e As _
       System.EventArgs) Handles cm.CurrentChanged
        ListBox1.SelectedIndex = cm.Position
        ListBox1.TopIndex = cm.Position
    End Sub
 
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e _
      As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        cm.Position = ListBox1.SelectedIndex
    End Sub
End Class