چرند و پرند

    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

کلمات کلیدی: