ListBox1.Items.Insert(0, lbitem)

ListBox1.Items.Add(lbitem)

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        For i As Integer = 0 To 30
            ListBox1.Items.Add("Testeintrag " & i)
        Next
 
    End Sub
 
    Private lbitem As String
 
    Private Sub ListBox1_DragDrop(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop
 
        If e.Data.GetDataPresent(DataFormats.StringFormat, True) Then
            ListBox1.Items.Insert(0, lbitem)
            ListBox1.Items.Remove(ListBox1.SelectedItem)
        End If
 
    End Sub
 
    Private Sub ListBox1_DragEnter(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter
 
        If e.Data.GetDataPresent(DataFormats.StringFormat, True) Then
            e.Effect = DragDropEffects.Move
        End If
 
    End Sub
 
    Private Sub ListBox1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseMove
 
        If e.Button = Windows.Forms.MouseButtons.Left Then
            lbitem = ListBox1.SelectedItem
            ListBox1.DoDragDrop(lbitem, DragDropEffects.Move)
        End If
 
    End Sub
 
End Class