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

ListViewDE1.Size = New Size(250, 300)

ListViewDE1.Location = New Point(1, 40)

Beste Wünsche,
Bran
---
Du stolperst nicht durch die Steine die Dir in den Weg gelegt werden,
sondern durch die Einfallslosigkeit ihnen aus dem Weg gehen zu können.

    Public Sub New()
        InitializeComponent()
        Dim lst As New List(Of Globalization.CultureInfo)
        lst.Add(New Globalization.CultureInfo("de-DE"))
        lst.Add(New Globalization.CultureInfo("en-US"))
        lst.Add(New Globalization.CultureInfo("fr-FR"))
 
        TabControl1.TabPages.Clear()
        For Each lang As Globalization.CultureInfo In lst
            Dim tp As New TabPage(lang.NativeName)
            tp.Tag = lang
            TabControl1.TabPages.Add(tp)
        Next
    End Sub
 
    Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
        Dim item As TabPage = CType(sender, TabControl).SelectedTab
        If item.Tag IsNot Nothing AndAlso item.Tag.GetType Is GetType( _
          Globalization.CultureInfo) Then
            Dim lang As Globalization.CultureInfo = CType(item.Tag, _
            Globalization.CultureInfo)
            '...
        End If
    End Sub