Dim i
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 100
Command2.Enabled = True
Command1.Enabled = False
End Sub
Private Sub Command2_Click()
On Error Resume Next
Command2.Enabled = False
Command1.Enabled = True
Timer1.Enabled = False
List2.AddItem List1.List(List1.ListIndex)
List1.RemoveItem List1.ListIndex
End Sub
Private Sub Form_Load()
Command2.Enabled = False
i = 0
List2.Clear
End Sub
Private Sub Timer1_Timer()
If List1.ListCount < 1 Then Exit Sub
List1.ListIndex = i
i = i + 1
If i >= List1.ListCount Then i = 0
End Sub
WHloud Date(鲸云数据),原做大数据和软件开发的团队,现在转变成云计算服务,面对海内外用户提供中国大陆,韩国,日本,香港等多个地方节点服务。24*7小时的在线支持,较为全面的虚拟化构架以及全方面的技术支持!官方网站:https://www.whloud.com/WHloud Date 韩国BGP云主机少量补货随时可以开通,随时可以用,两小时内提交退款,可在工作日期间全额原路返回!支持pa...