Private Sub grdBewerberProfil_DblClick()
    Dim p_Profil As clsBewerberprofil
    Set p_Profil = New clsBewerberprofil
    p_Profil.LoadData (Me.grdBewerberProfil.SelectedItem.Tag)
 
    fillBPFormFields (p_Profil)
 
End Sub
 
Private Sub fillBPFormFields(BP As clsBewerberprofil)
 
End Sub