Private Sub LBsource_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
LBresult.AddItem LBsource.List(LBsource.ListIndex, 0)
LBresult.List(LBresult.ListCount - 1, 1) = LBsource.List(LBsource.ListIndex, 1)
LBsource.RemoveItem (LBsource.ListIndex): Exit Sub
End Sub