.NET (Core and Framework)

Private Sub Fill(ByVal i As Integer, ByVal j As Integer)
        If (i < 1) Or (j < 1) Or (i > FillM.Width) Or (j > FillM.Height) Then
            Exit Sub
        End If
        If FillM.Pixel(i, j) = 1 Then
            FillM.Pixel(i, j) = -1

            Fill(i, j - 1)
            Fill(i, j + 1)
            Fill(i - 1, j - 1)
            Fill(i - 1, j)
            Fill(i - 1, j + 1)
            Fill(i + 1, j)
            Fill(i + 1, j - 1)
            Fill(i + 1, j + 1)
        End If
    End Sub

Dim xr As XmlReader = ExportAdapter.GetEditedCheckXML(chkId)
Dim xdoc As New XmlDocument
xdoc.Load(xr)

Public Shared Function GetEditedCheckXML(ByVal checkId As Integer) As XmlReader

    Dim conn As SqlConnection = New SqlConnection(CONNECTION_STRING)
    Dim comm As New SqlCommand("PS_GetModifiedXmlByCheckId", conn)
    Dim adap As New SqlDataAdapter

    comm.CommandType = CommandType.StoredProcedure
    comm.Parameters.Add("@checkId", SqlDbType.Int).Value = CInt(checkId)
    conn.Open()

    Dim xml = comm.ExecuteXmlReader()
    xml.Read()
    conn.Close()

    Return xml
End Function

Dim acon As New SqlConnection(ConfigurationManager.ConnectionStrings("DOCDBDWHConnectionString").ConnectionString)
            Dim acmd As New SqlCommand()
            Dim sSql As String
            acon.Open()
            sSql = "select distinct vessel_code,vessel_desc from D4A_RAW_BLP"
            acmd.Connection = acon
            acmd.CommandText = sSql

            'Pull vessel code
            Dim dataset As New DataSet
            Dim adpvsl As New SqlDataAdapter
            Dim adpvoy As New SqlDataAdapter
            adpvsl.SelectCommand = acmd
            adpvsl.Fill(dataset, "Vessel")

            'Pull voyageno
            sSql = ""
            sSql = "select distinct voyage_no,vessel_code from D4A_RAW_BLP where vessel_code in (select distinct vessel_code from D4A_RAW_BLP where vessel_code<>'') order by vessel_code"

            adpvoy.Fill(dataset, "voyage")