Visual Basic

public void DrawRandomImage(Graphics g, Rectangle rect)<br />
        {<br />
            if (usedIndexes.Count > currentImageIndex && bitmaps.Count >0)<br />
            {<br />
                if (showEffects)<br />
                    ControlPaint.DrawImageDisabled(g, bitmaps[usedIndexes[currentImageIndex]], rect.X + 5, rect.Y + 5, Color.Transparent);<br />
                g.DrawImage(bitmaps[usedIndexes[currentImageIndex]], rect);<br />
                currentImageIndex++;<br />
                if (currentImageIndex == 3)<br />
                    currentImageIndex = 0;<br />
            }<br />
            else<br />
                g.FillRectangle(new SolidBrush(Color.Black), rect);<br />
        }

        Dim drTmplt As DataRow = Me.dtStockmSample.Rows(0) 'I Use this row as a template for all ne rows
        Dim drNewRow As DataRow ' This is the row to be added
        Dim drXLRow As DataRow 'Row that contains new values imported from Excel
        Dim cnStr As String = "Server='" & Me.txtServer.Text & "';Database='" & Me.txtDatabase.Text & "';uid='userid';pwd='pwd'"
        Dim cn As New SqlClient.SqlConnection(cnStr)
        Dim da As New SqlClient.SqlDataAdapter("SELECT * FROM " & Me.txtDatabase.Text & ".scheme.stockm", cn)
        Dim i As Integer
        
        dtStockm.Rows.Clear()
        Try
            cn.Open()
            da.FillSchema(dtStockm, SchemaType.Source)
            da.Fill(Me.dtStockm)
            da.SelectCommand.CommandText = "SELECT * FROM " & Me.txtDatabase.Text & ".scheme.stockm"
            Dim cb As New SqlClient.SqlCommandBuilder(da)
            cb.GetInsertCommand(True)
            For i = 0 To Me.dtXlData.Rows.Count - 1
                drXLRow = Me.dtXlData.Rows(i)
                drNewRow = dtStockm.NewRow
                drNewRow.Item(0).GetType.Name.ToString()
                For j As Integer = 0 To Me.dtStockmSample.Columns.Count - 1
                    drNewRow.Item(j) = drTmplt.Item(j)
                Next
                drNewRow.Item("warehouse") = drXLRow.Item("warehouse")
                drNewRow.Item("product") = drXLRow.Item("product")
                drNewRow.Item("alpha") = drXLRow.Item("alpha")
                drNewRow.Item("description") = drXLRow.Item("description")
                drNewRow.Item("unit_code") = drXLRow.Item("unit_code")
                drNewRow.Item("long_description") = drXLRow.Item("long_description")
                drNewRow.Item("nominal_key") = drXLRow.Item("nominal_key")
                drNewRow.Item("purchase_key") = drXLRow.Item("purchase_key")
                drNewRow.Item("analysis_a") = drXLRow.Item("analysis_a")
                drNewRow.Item("qty_decimal_places") = drXLRow.Item("qty_decimal_places")
                drNewRow.Item("batch_traceability") = drXLRow.Item("batch_traceability")
                drNewRow.Item("standard_cost") = drXLRow.Item("standard_cost")
                drNewRow.Item("lead_time") = drXLRow.Item("lead_time")
                drNewRow.Item("standard_labour") = drXLRow.Item("standard_labour")
                drNewRow.Item("standard_overhead") = drXLRow.Item("standard_overhead")
                drNewRow.Item("standard_material") = drXLRow.Item("standard_material")
                drNewRow.Item("reorder_days") = drXLRow.Item("reorder_days")
                drNewRow.Item("stock_take_toleran") = drXLRow.Item("stock_take_toleran")
                drNewRow.Item("analysis_x_ref") = drXLRow.Item("analysis_x_ref")
                Me.dtStockm.Rows.Add(drNewRow)

            Next
'*********** NEXT LINE GIVE EXCEPTION ****************
            'MessageBox.Show(da.UpdateCommand.CommandText)
            da.Update(dtStockm)
            'Dim rowsupdate As Integer = da.InsertCommand.ExecuteNonQuery()
            MessageBox.Show(Me.dtXlData.Rows.Count.ToString & " Rows Imported Successfully")
        Catch ex As Exception
            MessageBox.Show("The following Error Occured in ROW '" & i & "'  of the import. " & ControlChars.NewLine _
            & "Error: " & ex.Message)
        Finally

            cn.Close()
        End Try

IS_Assessor wrote:

Is there any way that you can tell the difference between an exe compiled in VB6 and an exe compiled in VB.Net.

IS_Assessor wrote:

If not, can anyone recommend or tell me how this can be done.