' Ask a Yes/no question' returns True if the user replies "Yes"' Example: MessageBox.Show(AskYesOrNo("Do you like me?", "ME", True))Function AskYesOrNo(ByVal text As String, ByVal title As String, _ ByVal defaultAnswer As Boolean) As Boolean Dim defButton As MessageBoxDefaultButton = MessageBoxDefaultButton.Button2 If defaultAnswer Then defButton = MessageBoxDefaultButton.Button1 End If Dim answer As DialogResult = MessageBox.Show(text, title, _ MessageBoxButtons.YesNo, MessageBoxIcon.Question, defButton) Return (answer = DialogResult.Yes)End Function

7 Ways Technology Has Changed Traditional Payments
In today’s digital world, technology has changed how we make payments. From contactless cards to mobile wallets, it’s now easier