Message Box with Retry and Cancel buttons in

Following example display a messagebox with Retry and Cancel buttons in

 Private Sub ShowRetryCancelMessage()
        Dim resultDlg As Integer
        resultDlg = MessageBox.Show("Error in this process", "", _
                                    MessageBoxButtons.RetryCancel, _
                                    MessageBoxIcon.Error, _
        If resultDlg = DialogResult.Retry Then
            ' Write code.....
            ' Write code.....
        End If
    End Sub
  • one_shoot

    thanks bro u re save my world :))