Sub Form

  Try
            Dim FrmControlPlanCopyOption As New FrmControlPlanCopyOption()
            Dim result As DialogResult = FrmControlPlanCopyOption.ShowDialog(Me)
        Catch ex As Exception
            'transaction.Rollback()
            MsgBox(Err.Description)
            MsgBox("Error while processing. Previous execution was rollback")
            Exit Sub
        End Try