[VB.NET] احتاج الى كود ترحيل البيانات

PHP كود :

Public Class Form1

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'كود عدم التكرار
        For i = 0 To ListBox1.Items.Count - 1
            If ListBox1.Items(i) = ComboBox1.SelectedItem Then
                Exit Sub
            End If
        Next
        '//////////////////

        'الاضافة
        ListBox1.Items.Add(ComboBox1.SelectedItem)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'clear items
        ListBox1.Items.Clear()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'التحقق من الاختيار ومسح المحدد
        If ListBox1.SelectedIndex > -1 Then
            ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
        End If
    End Sub
End Class

كود :

       Dim AddedItem As String = ComboBox1.SelectedItem

        If AddedItem Is Nothing Then Return

        ListBox1.Items.Add(AddedItem)

كود :

       Dim RemovedItem = ListBox1.SelectedItem

        If RemovedItem Is Nothing Then Return

        ListBox1.Items.Remove(RemovedItem)