Per esempio:
codice:
Dim TempoTrascorso

Private Sub Command1_Click()
Randomize (TempoTrascorso)
MsgBox "Hai impiegato " + Str(TempoTrascorso / 100) + " secondi !"
Command1.Visible = False
End Sub

Private Sub Timer1_Timer()
TempoTrascorso = TempoTrascorso + 1
If Rnd() * 100 > 99 Then
    Command1.Visible = True
    TempoTrascorso = 0
End If
End Sub
Allora, si suppone che ci sia un bottone (Command1) ed un Timer(Timer1) regolato a 10 millesimi di secondo.
Il generatore di numeri random viene reinizializzato ogni volta che si preme il bottone secondo il tempo impiegato a reagire in modo di assicurare la casualità dei tempi di comparsa. Questo è tutto. Puoi sostituire con una forma. Potresti anche far spostare il bottone/forma caso dentro la form, sempre in base a valori casuali.