Do While txtFirstName.Text <> Pass
Dim sf As Object = DetailsDialog.ShowAsync("Please enter the password", "OK", "", "", False)
DetailsDialog.GetButton(DetailsDialog.RESULT_POSITIVE).Enabled = False
Wait For (sf) Dialog_Result (Result As Int)
'disable the OK button.
If Result = DetailsDialog.RESULT_POSITIVE Then
If txtFirstName.Text <> Pass Then
hd.ToastMessageShow("Wrong Password",True)
End If
'Else If Result = DetailsDialog.RESULT_NEGATIVE Then
End If
Loop