OPRAG-OPREG

 Dim Temukan As DataRow() = DTSumPO.Select("PONUM ='" & vPO & "' AND POQTY = '" & vQTY & "'")                                         If Temukan.Length = 0 Then                                             DTSumPO.Rows.Add(vPO, vQTY)                                         End If

Dim DTGakGeser, DTGeser As New DataTable                                 DTGakGeser.Columns.Add("COGAKGESER", GetType(String))                                 DTGakGeser.Columns.Add("QTYGAKGESER", GetType(Decimal))                                 DTGeser.Columns.Add("COGESER", GetType(String))                                 DTGeser.Columns.Add("QTYGESER", GetType(Decimal))                                 Dim tmpSUMGakGeser, tmpSUMGeser             ...

My case in VS2013 Open project properties [ menu > project > properties ] Choose "debug" tab Uncheck "Enable the visual studio hosting process" Start debugging [F5] You will receive security warning , just "ok". Lets application running Stop debugging. Check option "Enable the visual studio hosting process" , under debug tab, Now , try to start debugging , you will not see error again source :  https://stackoverflow.com/questions/18102859/visual-studio-could-not-copy-during-build

'CHECK CHECKBOX IS CHECKED OR UNCHECKED     Private Sub CB_CheckedChanged(sender As Object, e As EventArgs) Handles CB.CheckedChanged         With DgvDoc             If CB.CheckState = CheckState.Checked Then                 For iRow = 0 To .Rows.Count - 1                     .Rows(iRow).Cells("CHECKED").Value = True                 Next             Else                 For iRow = 0 To .Rows.Count - 1                     ....

 'DATAGRIDVIEW UPPERCASE     Private Sub DGVUpperCase(sender As Object, e As KeyPressEventArgs)         e.KeyChar = Char.ToUpper(e.KeyChar)     End Sub     Private Sub DgvDoc_EditingControlShowing(sender As Object, e As DataGridViewEditingControlShowingEventArgs) _ Handles DgvDoc.EditingControlShowing         AddHandler e.Control.KeyPress, AddressOf DGVUpperCase     End Sub

  Private Sub TAGS_PARENTING()         Dim DTPopUp As New DataTable         With DTPopUp             .Columns.Add("SEQ", GetType(String))             .Columns.Add("QTY", GetType(String))             .Columns.Add("ETD", GetType(String))             .Columns.Add("ETA", GetType(String))             DTPopUp = MePostab_Control.Cari_TAG_PARENTING         End With         With FPPOSTAB             For GG As Integer = 0 To .ActiveSheet.RowCount - 1             ...