Dim frm as New frmKunde
frmKunde.Kunden_ID = 0
if frmKunde.ShowDialog() <> OK then
    ' mache das wenn ein neuer angelegt wurde
end if

Private m_Kunden_ID as long
Public Property Kunden_ID as long
    Get
        return m_Kunden_ID
    End Get
    SEt(value as long)
        if m_Kunden_ID = Value then return
 
        m_Kunden_ID = Value
 
        if m_Kunden_ID <> 0 then
            ' lade die daten in das formular
        end if
    End Set
End Property

Private Sub cmdSave(Sender as object, e as eventargs)
    if m_Kunden_ID = 0 then
        ' es ist ein neuer datensatz
    else
        ' es ist einbestehender datensatz
    endif
end Sub