🚀 go-pugleaf

アドレス帳のようなプログラムを作るときに、リストに表示された名前を削除しま
す。そのとき、名前の方は、
List1.RemoveItem List1.ListIndex
で消えますが、アドレス値を削除することは出来ません。また、そのままにしておく
と、名前とアドレスが、あわなくなってしまいます。合わせる方法を教えてくださ
い。m(__)m
とりあえず、これを処理するプログラムを書きましたが、これでは正しく動作させる
ことができません。どう直せばいいのかを教えていただければ幸いです。

If Not List1.ListIndex = 0 Then
    For I = 0 To List1.ListIndex - 1
        mem(I) = data(I)
        data(I) = mem(I)
    Next I
    For I = List1.ListIndex + 1 To 99
        mem(I) = data(I + 1)
        data(I - 1) = mem(I)
    Next I
    List1.RemoveItem List1.ListIndex
Else '0の時
    List1.RemoveItem 0
    For I = 0 To 98
        mem(I) = data(I + 1)
        data(I + 1) = mem(I)
    Next I
End If