Private Sub btneditcowboysr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btneditcowboysr.Click Dim cnam As String = "" cnam = Me.ContestantsBO1.InvertedName If Me.ChildFormDialogSR.ShowDialog(cnam) = System.Windows.Forms.DialogResult.OK Then SrswtdPointsBO1.Save() Else SrswtdPointsBO1.Undo(MicroFour.StrataFrame.Business.BusinessUndoType.AllRows) End If End Sub Private Sub btnbrowsesr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbrowsesr.Click Me.BrowseDialogSR.ShowDialog() Me.ContestantsBO1.Refresh() Me.Refresh() Me.TabControl1.TabPages(0).Refresh() End Sub