Public Class frmVorm


    Private Sub form1_load(sender As System.Object, e As System.EventArgs) Handles Me.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
        lstParem.Items.Add(lstVasak.SelectedItem)
        i = lstVasak.Items.IndexOf(lstVasak.SelectedItem)
        lstParem.Items.Add("element index on " & i)
        lstVasak.Items.RemoveAt(i)
    End Sub

    Private Sub brnVasakule_Click(sender As System.Object, e As System.EventArgs) Handles brnVasakule.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