Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        With lstVasak.Items
            .Add("yks")
            .Add("kaks")
            .Add("kolm")
            .Add("neli")
            .Add("viis")
            .Add("kuus")
            .Add("seitse")
            .Add("kaheksa")


        End With
    End Sub

    Private Sub btnParemale_Click(sender As System.Object, e As System.EventArgs) Handles btnParemale.Click
        Dim i As Integer
        ' Dim nimi As String
        'i = lstVasak.Items.IndexOf(Cursor)
        'nimi = lstVasak.Items.Item(i)
        'lstParem.Items.Add(i)
        'lstVasak.Items.CopyTo(lstParem.Items.AddRange)
        'lstVasak.Items.RemoveAt(MouseButtons.Left)
        lstParem.Items.Add(lstVasak.SelectedItem)
        i = lstVasak.Items.IndexOf(lstVasak.SelectedItem)
        lstParem.Items.Add("Elemendi indeks on:" & i)
        lstVasak.Items.RemoveAt(i)
    End Sub

    Private Sub btnVasakule_Click(sender As System.Object, e As System.EventArgs) Handles btnVasakule.Click
        Dim i As Integer
        lstVasak.Items.Add(lstParem.SelectedItem)
        i = lstParem.Items.IndexOf(lstParem.SelectedItem)
        lstVasak.Items.Add("element index on " & i)
        lstParem.Items.RemoveAt(i)
    End Sub
End Class