Private Delegate Sub DelsetAutoComplBS(ByVal bs As BindingSource, ByVal col _
     As String, ByVal tstb As ToolStripTextBox)
 
 
   Public Sub setAutoComplBS(ByVal bs As BindingSource, ByVal col As String, _
     ByVal tstb As ToolStripTextBox)
 
      If Me.InvokeRequired Then
         Me.Invoke(New DelsetAutoComplBS(AddressOf setAutoComplBS), _
           New Object() {bs, col, tstb})
      Else
         tstb.AutoCompleteCustomSource.Clear()
         For Each r As DataRowView In bs
            If r.Item(col) IsNot DBNull.Value Then
               tstb.AutoCompleteCustomSource.Add(r.Item(col))
            End If
         Next
      End If
   End Sub

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control