Sub ImageView1_Click
Select Msgbox2("Would You Like To By This?" , "Conferm Order" , "yes","Cancel" , "no" ,LoadBitmap(File.DirAssets,"bud_icon_007.jpg"))
Case DialogResponse.POSITIVE
money1 = money1 - "20"
label1.Text = ""
label1.Text = "$" & money1
imageview1.Bitmap = LoadBitmap(File.DirAssets,"bud1owned.jpg")
ownedamountitem1 = ownedamountitem1 + "1"
imageview3.Bitmap = LoadBitmap(File.DirAssets,"bud_icon_007.jpg")
labelitemamount1.Text = ownedamountitem1
Case DialogResponse.NEGATIVE
Case Else
ToastMessageShow("No",False)
End Select
End Sub