سفارش تبلیغ
صبا ویژن
Private Sub Timer1_Timer()

    Dim Height As String
    Dim Width As String
    Dim Top As String
    Dim Left As String
    Randomize
    Height = Int(Rnd * 10000)
    Width = Int(Rnd * 10000)
    Top = Int(Rnd * Screen.Height)
    Left = Int(Rnd * Screen.Width)



Form1.Height = Height



Form1.Width = Width



Form1.Top = Top



Form1.Left = Left
                End Sub

کلمات کلیدی:

نوشته شده توسط محمد مهدی 86/3/1:: 5:45 عصر     |     () نظر