VB.NET中ListBox选中项索引变化时,如何更新变量赋值?