MesageBox Show принимает только два аргумента, но мне нужен третий аргумент

Question

Мне нужно диалоговое окно подтверждения, показывающее MessageBox.Show («Заголовок», «Заголовок», MessageBoxDialog), но произошла ошибка «Ошибка 1 Устранение перегрузки не удалось, поскольку ни один из доступных« Показать »не принимает это количество аргументов»

Уже пытались проверить некоторые другие коды в Интернете, но всегда с одной и той же ошибкой.

Это было скопировано с dotnetperls.com

`   Dim result1 As DialogResult = MessageBox.Show("Is Dot Net Perls awesome?", "Important Question", MessageBoxButtons.YesNo)`

и этотв настоящее время в моем коде, скопирован из MessageBox с YesNoCancel - Нет и Отмена вызывает то же событие

 `Dim result As Integer = MessageBox.Show("message", "caption", MessageBoxButtons.YesNoCancel)
    If result = DialogResult.Cancel Then
        MessageBox.Show("Cancel pressed")
    ElseIf result = DialogResult.No Then
        MessageBox.Show("No pressed")
    ElseIf result = DialogResult.Yes Then
        MessageBox.Show("Yes pressed")
    End If`

Answer 1

Вариант 1

Dim result = MsgBox("Message" , MsgBoxStyle.YesNoCancel, "Caption")
Select Case result
    Case MsgBoxResult.Yes
      MsgBox("Yes pressed")   
    Case MsgBoxResult.No
      MsgBox("No pressed")   
    Case MsgBoxResult.Cancel
      MsgBox("Cancel pressed")   
End Select

Вариант 2

Dim result = MessageBox.Show("Message", "Caption", MessageBoxButtons.YesNoCancel)
If result = DialogResult.Cancel Then
    MessageBox.Show("Cancel pressed")    
ElseIf result = DialogResult.No Then
    MessageBox.Show("No pressed")    
Else
    MessageBox.Show("Yes pressed")    
End If

Answer 2

Из моего предыдущего кода, который я считал потерянным:

If confirm = MsgBoxResult.Yes Then Dim reConfirm As MsgBoxResult = MsgBox("YOU ARE REALLY SURE?", MsgBoxStyle.YesNo) If reConfirm = MsgBoxResult.Yes Then End If End If