[ملهمـ]

السلام عليكم 
أخي قم بعمل حقل في جدول الأصناف 
وسميه مثلا Item_cheack من نوع Bit
وقم بوضع أداة شيك بوكس في حالة كانت ترو فـ يكون ترو في قاعدة البيانات 
الأن إلى الكود وهو كالتالي 
أول شيء سنستخدم أداة FlowLayoutPanel
نضعها في الفورم 
ثاني شيء  للكود وهو كالتالي وبسيط وساهل 
في حدث اللود للفورم 

كود :

       Dim dt As New DataTable
       Dim da As New SqlClient.SqlDataAdapter("select * from Items where Item_Cheack ='true' ", SqlConn)
       da.Fill(dt)
       If dt.Rows.Count > 0 Then
           Dim Value As Integer

           For Value = 0 To dt.Rows.Count - 1

               Dim Btn As New System.Windows.Forms.Button
' هنا طبعا تضع اسم حقل كود الصنف + كود الصنف
               Btn.Name = dt.Rows(Value).Item("Item_Bar")
               Btn.Text = dt.Rows(Value).Item("Item_Name")
               Btn.Font = Label1.Font
               Btn.Width = 150
               Btn.Height = 45

               AddHandler Btn.Click, AddressOf ButtonClickInFlp

               FlpSales.Controls.Add(Btn)

           Next

 وبعدها نقوم بعمل صب وهو كالتالي

كود :

Private Sub ButtonClickInFlp(ByVal sender As System.Object, ByVal e As System.EventArgs)
       sender.GetType()
       ItemBarCode.Text = sender.Name
       ' TxtIDProducer_Leave(Me, e)
       ItemBarCode_Leave(Me, e)
   End Sub

مع مراعاة البحث عن طريق الباركود للصنف مثلما وضعت البحث في حدث البحث في المغادرة 
بالتوفيق