Dim CONTA As Integer
Private Sub Command1_Click()
Dim S As Integer
For S = 1 To 40
    Call NUEVOS
Next S
Form1.Top = Int((8100 + 1) * Rnd + 1)
Form1.Left = Int((10515 + 1) * Rnd + 1)
End Sub

Private Sub NUEVOS()
CONTA = CONTA + 1
Dim nf As New Form2
nf.Show
nf.Top = Int((8100 + 1) * Rnd + 1)
nf.Left = Int((10515 + 1) * Rnd + 1)
nf.Caption = nf.Caption & CONTA
End Sub

Private Sub Form_Load()
Form1.Caption = Date & " - " & Time
CONTA = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = True
End Sub

Private Sub Command1_Click()
unload me
End Sub