Private Sub btnRechnungNeu_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnRechnungNeu.Click
Dim fRechnungErstellung As New frmRechnungErstellung
fRechnungErstellung .ShowDialog()
End Sub
 
Private Sub btnKundenWahl_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnKundenWahl.Click
Dim fKundenAuswahl As New frmKundenAuswahl
fKundenAuswahl.ShowDialog()
'Ab hier kannst du mit deiner ausgewählten KundenID weiterarbeiten.
'--> fKundenAuswahl.SelectedKundenID (siehe unten)
End Sub

Public Property SelectedKundenID As Integer
'etc...