Sub bUp_Click
Log("UP")
If clvIndex = 0 Then Return
Dim svValue As Int = clv.GetValue(clvIndex)
Dim svPanel As Panel = clv.GetPanel(clvIndex)
clv.RemoveAt(clvIndex)
clvIndex = clvIndex - 1
clv.InsertAt(clvIndex,svPanel,svValue)
End Sub
Sub bDown_Click
Log("DOWN")
If clvIndex = clvSize - 1 Then Return
Dim svValue As Int = clv.GetValue(clvIndex)
Dim svPanel As Panel = clv.GetPanel(clvIndex)
clv.RemoveAt(clvIndex)
clvIndex = clvIndex + 1
clv.InsertAt(clvIndex,svPanel,svValue)
End Sub