SDL Jetzt erst recht!

SDL/cSourceListWrapper.vb

@@ -0,0 +1,18 @@
+Imports System.Collections.Generic
+Imports System.Text
+
+Public Class SourceListWrapper
+    Private m_listSourceNames As List(Of String) = Nothing
+    Public Sub New(listSourceNames As List(Of String))
+        m_listSourceNames = listSourceNames
+    End Sub
+
+    Private m_SelectedIndex As Integer = 0
+    Public Function SelectSource() As Integer
+        Dim temp As New frmSourceList(m_listSourceNames)
+        temp.ShowDialog()
+        m_SelectedIndex = temp.GetSelectedIndex()
+        Return m_SelectedIndex
+    End Function
+
+End Class