Dim frmRechnungNew As frmRechnungErstellung

    Private Sub btnRechnungNeu_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnRechnungNeu.Click
        frmRechnungNew = frmRechnungErstellung
        Me.Hide()
        frmRechnungNew.ShowDialog()
        Me.Show()
    End Sub

Dim frmKundenAusNew As frmKundenAuswahl

    Private Sub btnKundenWahl_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnKundenWahl.Click
        frmKundenAusNew = frmKundenAuswahl
        Me.Hide()
        frmKundenAusNew.ShowDialog()
        Me.Show()
    End Sub

    Private Sub btnKundeAuswahl_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnKundeAuswahl.Click
        frmRechnungErstellung.Set_KundenID(CInt(Me.txtIDKunde.Text))
        Me.Close()
        frmRechnungErstellung.Show()
    End Sub