Visual Basic

Private mouseisdown As Boolean = False

   Private Sub ListView1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListView1.DragDrop
       If e.Data.GetDataPresent(DataFormats.FileDrop) Then
           e.Effect = DragDropEffects.All
           Dim myfile() As String
           Dim i As Integer = 0
           myfile = e.Data.GetData(DataFormats.FileDrop)

           For i = 0 To myfile.Length - 1
               Dim ico As Icon = Icon.ExtractAssociatedIcon(myfile(i))
               ImageList1.Images.Add(ico)
               Dim listview As New ListViewItem
               Dim location As New ListViewItem.ListViewSubItem
               listview.Text = myfile(i).Substring(myfile(i).LastIndexOf("\") + 1)
               location.Text = myfile(i)
               listview.SubItems.Add(location)
               listview.ImageIndex = ImageList1.Images.Count - 1
               ListView1.LargeImageList = ImageList1
               ListView1.Items.Add(listview)
               listview = Nothing

           Next

       End If
   End Sub


   Private Sub ListView1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListView1.DragEnter
       If e.Data.GetDataPresent(DataFormats.FileDrop) Then
           e.Effect = DragDropEffects.All
       End If
   End Sub

   Private Sub ListView1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDown
       mouseisdown = True
   End Sub

   Private Sub ListView1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseMove
       If mouseisdown = True Then
           If ListView1.SelectedItems.Count > 0 Then
             ListView1.DoDragDrop(ListView1.SelectedItems(0).Text, DragDropEffects.Move)
           End If
       End If
       mouseisdown = False
   End Sub

Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
       If ListView1.SelectedItems.Count > 0 Then
           Process.Start(ListView1.SelectedItems(0).SubItems(1).Text)
       End If
   End Sub

Private txtSlot() As System.Windows.Forms.TextBox

Private Sub createTxtSlotArray()
       Dim i As Short
       ReDim txtSlot(10)
       For i = 1 To 10
           txtSlot(i) = New System.Windows.Forms.TextBox
           With txtSlot(i)
               .Tag = i
               AddHandler .Click, AddressOf Me.txtSlot_Mouseclick
           End With
       Next
       Me.Controls.AddRange(txtSlot)

    Private Sub txtSlot_Mouseclick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click
        Debug.Write("Clicked " & sender.tag()) 'for real I will set a global variable here so I know the ID

' what to do here to get popup? and make it pop up
?????

    End Sub

I thought someting like
contextmenu1.Show (contextmenu1,????) ' where to I get pos (second parameter)?

Any help is appreciated
thanks