Private Sub btnAuswaehlen_Click(sender As Object, e As EventArgs) Handles _
  btnAuswaehlen.Click
        '--------------------------
        'Formular SQL-Editor öffnen
        '--------------------------
 
        '## angepasst: Try/Catch
        Try
            Dim intID As Integer = 0
            Dim strGruppeBezeichnung As String = ""
 
            '## angepasst: Prüfen, ob etwas selektiert wurde:
            If lstGruppen.SelectedIndex = -1 Then
                MsgBox("Bitte selektieren Sie einen Eintrag aus der" & _
                  "Gruppenliste", vbInformation, "Fehler: Kein Eintrag" & _
                  "selektiert")
                Exit Sub
            End If
 
 
            intID = Me.lstGruppen.SelectedItem.value
            strGruppeBezeichnung = Me.lstGruppen.SelectedItem.key
 
            '## angepasst: Verwende nicht den Klassennamen für die Bezeichnung 
            ' einer Referenzvariable (frmSQL).
            Dim frmOracleSQL As New frmSQL(intID, strGruppeBezeichnung)
 
            frmOracleSQL.ShowDialog()
 
        Catch ex As Exception
 
            MsgBox(ex.Message)
 
        End Try
 
 
    End Sub

'Erzeugt Fehler
frmOracleSQL.ShowDialog()

Zitat:

Nutze einen Using-Block für den untergeordneten Dialog. Etwa so ... Using MySql as new frmSql - With MySQL -- .ID = intID -- .Gruppe = strGruppeBezeichnung -- .Showdialog - End With End Using Dadurch wird die Instanz des untergeordneten Formulars am Dialog-Ende rasch und sauber entsorgt.

Dim frmOracleSQL As New frmSQL(intID, strGruppeBezeichnung)

---
Verwendete Programmversionen:
Windows 7 64 bit sowie Windows 10 Prof.
Visual Studio 13 Professional
Microsoft Prof. 2010 (= Version 14)