Hej jag ska göra ett skämt program som går ut på att man klickar
på en okej knapp så flyger det upp massa ruter

kåden:

program main {
i=0i
for (i<100) {
show_window()
i=i+1;
{
{
fenelian show_window( ) {
x=randomice(800);
y

I VB skulle något liknande se ut såhär.

Lägg till en modul och klistra in följande kod:

Public Sub Main()
Dim frmForm As Form1
Dim Index As Integer
For Index = 1 To 20
Set frmForm = New Form1
Randomize
frmForm.Left = Rnd * (Screen.Width - frmForm.Width)
frmForm.Top = Rnd * (Screen.Height - frmForm.Height)
frmForm.Show
Next
End Sub

Öppna projekt egenskaperna och ange Sub Main som startup Objekt.