Visual Basic

New List(Of InspectionEntity)(new InspectionEntity() {element})

new List(Of InspectionEntity)(element)

new List(Of InspectionEntity)(new InspectionEntity(){element})

Public Sub New(ByVal type As LocationType, ByVal element As InspectionEntity)
    Me.New(type, New List(Of InspectionEntity)(element))
End Sub
Public Sub New(ByVal type As LocationType, ByVal entities As List(Of InspectionEntity))
    Me.New(type, entities, New InspectionEntity([LIB].Enumerations.TableIDDefault.NullKey, "", ""))
End Sub

New problem though:

Public Sub Store(ByVal type As Location.LocationType, ByVal element As InspectionEntity)
'...
If Not typeAlreadyTracked Then
   'Theres no actual line-continuation '_' in my code. I only placed it here because the forum posts will not scroll horizontally.
   'The code is actually much more legible in a single line
Me._locations.Add(IIf((element Is Nothing), New Location(type), New Location(type, CType(_
 IIf element Is Nothing, New InspectionEntity(-999, "", ""), element), InspectionEntity))))
   typeAlreadyTracked = True
End If
End Sub

Public Sub New()
    Me.New(LocationType.NonDeterminant)
End Sub
Public Sub New(ByVal type As LocationType)
    Me.New(type, New List(Of InspectionEntity))
End Sub
Public Sub New(ByVal type As LocationType, ByVal element As InspectionEntity)
    Me.New(type, New List(Of InspectionEntity)(element))
End Sub
Public Sub New(ByVal type As LocationType, ByVal entities As List(Of InspectionEntity))
    Me.New(type, entities, New InspectionEntity([LIB].Enumerations.TableIDDefault.NullKey, "", ""))
End Sub
Public Sub New(ByVal location As Location)
    Me.New(location.Type, location.Entities, location.Selected)
End Sub
Public Sub New(ByVal type As LocationType, ByVal entities As List(Of InspectionEntity), ByVal selected As InspectionEntity)
    Me._type = type
    Me._entities = entities
    Me.setSelected = IIf(selected Is Nothing, New InspectionEntity([LIB].Enumerations.TableIDDefault.NullKey, "", ""), selected)
End Sub

<blockquote class="FQ"><div class="FQA">Jamal Abdul Nasir wrote:</div> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 If Not Me.TextBox1.Text = "a" And Not Me.TextBox1.Text = "b" Then            MsgBox("1")        Else            MsgBox("2")        End If    End Sub</blockquote>

class form1

private sub button1_click
'validate the registration info
if valid then 
dim frm as new form2(param1,param2,...)
frm.showdialog
end if
end sub

end class

class form2

public sub new (param1 as ..., param2 as ..., ...)
initializecomponent
'do more code here with the params
end sub

end class

Private _row As DataRow

Public Overloads Sub ShowDialog(ByVal row As DataRow)
    Dim iResult As DialogResult

    _row = row
    __bindingSource.DataSource = row

    _row.BeginEdit()
    'other setup

    iResult = MyBase.ShowDialog

    'clean-up
    If iResult = System.Windows.Forms.DialogResult.OK Then
        _row.AcceptChanges()
    Else
        _row.CancelEdit()
    End If

End Sub