Dim desktop As Int16 Dim loc As Int16 Dim loch As Int16 loch = 100 desktop = 1 Dim count As Int16 count = 1 loc = 100 For desktop = 1 To 14 Dim mypic As New PictureBox Dim mymenu As New ContextMenuStrip mypic.ContextMenuStrip = ContextMenuStrip1 mypic.ContextMenuStrip.Name = count.ToString mypic.ContextMenuStrip.Items.Add(count.ToString) mypic.Size = New Size(80, 80) mypic.Location = New Point(loc, loch) mypic.SizeMode = PictureBoxSizeMode.StretchImage mypic.Image = Image.FromFile("C:\Users\DECODER\Downloads\My-Computer-icon.png") mypic.BringToFront() Me.Controls.Add(mypic) loc = loc + 110 If loc > 1260 Then loch = 250 loc = 100 End If count = count + 1 Next
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)