vb 窗口随机移动

vb窗口随机移动


Private Sub Form_Load()
    Timer1.Enabled = True
    Timer1.Interval = 1200
End Sub

Private Sub Timer1_Timer()
    Me.Left = Rnd * (Screen.Width - Me.Width)
    Me.Top = Rnd * (Screen.Height - Me.Height)
End Sub

_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/