[adam786]

Private Sub ProductCatalogueByNumber_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductCatalogueByNumber.SelectedIndexChanged

	  items.item.(productcataloguebynumber.SelectedItem 

	End Sub

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		' If ProductCatalogueByNumber.Select = True Then
		' Then

		'  End If
	End Sub

	Private Sub ShoppingKart_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShoppingKart.SelectedIndexChanged

	End Sub

	Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
		 productSelect.x = items.item.(productcataloguebynumber.SelectedItem)
		  Inputbox("Please Enter The Amount You Want to Purchase ","Amount Of Products" 
	End Sub

Mod Edit: Please use code tags when posting your code. Code tags are used like so =>

Thanks,
PsychoCoder

[PsychoCoder]

Are you receiving any errors? Does this code not work that way you intended it? When asking for help there are a couple items that are vital in order for someone to properly help you:

• Post the code you're having problems with (DONE)
  
• Post the exact error you're receiving, if you are receiving one
  
• If no error explain what the code is doing versus what you want it to do
  
• Post your question in the body of your post, not the description field