Code: 
randnum = random(1, 4) ' Zufallszahl von 1 bis 4
while randnum = richtig.text ' Solange die Zufallszahl mit der richtigen Antwort identisch ist...
 randnum = random(1, 4) ' "würfeln" wir sie neu aus
Wend

if richtig.text <> 1 AND randnum <> 1 Then A.visible = false
if richtig.text <> 2 AND randnum <> 2 Then B.visible = false
if richtig.text <> 3 AND randnum <> 3 Then C.visible = false
if richtig.text <> 4 AND randnum <> 4 Then D.visible = false
So in etwa sähe das in VB aus. Nur bei der Zufallszahl bin ich mir nicht sicher. Keine Ahnung, ob das tut, aber sieht gut aus.

@Jeez:
Wir warten immer noch auf den Zettel. Ich denk zwar nich, dass ich ne Chance hab, aber wer weiß...