Dim sf As Object = xDlg.Show("Text", "Yes", "No", "")
xDlg.Base.Left = 10dip
xDlg.Base.Top = 10dip
Wait For (sf) Complete(Result As Int)
If Result = xui.DialogResponse_Cancel Then
End If
You can prevent the Cancel button from appearing, as I did above, by passing an empty string as the button text.
Or you could display the dialog again if Cancel is pressed (but that certainly wouldn't look good).