>>654
Function Delete_OnClick()
Dlt_OnClick= False
lngRC = MsgBox(""本当に 削除してもいいですか？" ,vbOKCANCEL,"削除フォーム")
If lngRC = vbOK Then
MsgBox "ok"
Dlt_OnClick= True
else
Dlt_OnClick= False
Exit Function
end if
End Function

Function は　Delete_OnClick() なんだろ
なのに戻りがDlt_OnClick とはどういうことだい？
あと、Exit Functionは必要かい？