Public Class frmTestX
    Dim WithEvents btnAuswaehlen As New Button _
        With {.Parent = Me}
 
    Dim lstgruppen As New ListBox _
        With {.Parent = Me, .Top = 50}
 
    '??????
    Public Class Itm
        Public value As Integer
        Public key As String
    End Class
 
 
    Private Sub frmTestX_Load(sender As System.Object, _
                        e As System.EventArgs) Handles MyBase.Load
 
        Dim it As New Itm
        it.key = "Gruppe1"
        it.value = 1
        lstgruppen.Items.Add(New Itm)
 
    End Sub
 
 
    Private Sub btnAuswaehlen_Click(sender As Object, _
        e As EventArgs) Handles btnAuswaehlen.Click
 
        Try
            Dim intID As Integer = 0
            Dim strGruppeBezeichnung As String = ""
 
            If lstGruppen.SelectedIndex = -1 Then
                MsgBox("Bitte selektieren Sie einen Eintrag aus der" & _
                  "Gruppenliste", vbInformation, "Fehler: Kein Eintrag" & _
                  "selektiert")
                Exit Sub
            End If
 
 
            intID = _
                DirectCast(Me.lstgruppen.SelectedItem, Itm).value
 
            strGruppeBezeichnung = _
                DirectCast(Me.lstgruppen.SelectedItem, Itm).key
 
            Using frmOracleSQL As New frmSQL
                With frmOracleSQL
                    'Formular-Eigenschaften zuweisen
                    .GroupID = intID
                    .GroupName = strGruppeBezeichnung
                    .ShowDialog()
                End With
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class
 
'Explizit erstellt Windows-Form
Public Class frmSQL
 
    Dim lblGruppe As New TextBox With {.Parent = Me}
 
    Private _intID As Integer 'ID der Gruppe
    Private _strBezeichnung As String
 
    Private Access As DBAccess
    Private Oracle As dbOracle
 
    Public Property GroupID As Integer
        Set(value As Integer)
            If value = -1 Then
                Throw New ArgumentException("unzulässige GruppenID")
            End If
            _intID = value
        End Set
        Get
            Return _intID
        End Get
    End Property
 
    Public Property GroupName As String
        Set(value As String)
            If String.IsNullOrWhiteSpace(value) Then
                Throw New ArgumentException("Gruppen-Name fehlt")
            End If
            _strBezeichnung = value
        End Set
        Get
            Return _strBezeichnung
        End Get
    End Property
 
    Private Sub frmSQL_Load(sender As Object, e As System.EventArgs) Handles _
      Me.Load
        Access = New dbaccess
        Oracle = New dboracle
 
        lblGruppe.Text = _strBezeichnung
    End Sub
 
    Private Class dbaccess
        'Hier könnte ein Problem liegen
    End Class
    Private Class dboracle
        'Hier könnte ein Problem liegen
    End Class
End Class