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
Hostodo又发布了几款针对7月4日美国独立日的优惠套餐(Independence Day Super Sale),均为年付,基于KVM架构,采用NVMe硬盘,最低13.99美元起,可选拉斯维加斯或者迈阿密机房。这是一家成立于2014年的国外VPS主机商,主打低价VPS套餐且年付为主,基于OpenVZ和KVM架构,产品性能一般,支持使用PayPal或者支付宝等付款方式。商家客服响应也比较一般,推...