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
上次部落分享过VirMach提供的End of Life Plans系列的VPS主机,最近他们又发布了DEDICATED MIGRATION SPECIALS产品,并提供6.5-7.5折优惠码,优惠后最低每月27.3美元起。同样的这些机器现在订购,将在2021年9月30日至2022年4月30日之间迁移,目前这些等待迁移机器可以在洛杉矶、达拉斯、亚特兰大、纽约、芝加哥等5个地区机房开设,未来迁移的时...