Ich habe zwar die letzten 48 Stunden hauptsächlich damit verbracht, im Alleingang einen Übungszettel für Praktische Informatik zu lösen (ihr glaubt gar nicht, wie sehr einem das die Lust am Coden nimmt), aber whatever...

Das hier ist Pseudocode. Ich habe seit Ewigkeiten nicht mehr mit VB gearbeitet.
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

if ((richtig.text != 1) AND (randnum != 1)) A.visible = false
if ((richtig.text != 2) AND (randnum != 2)) B.visible = false
if ((richtig.text != 3) AND (randnum != 3)) C.visible = false
if ((richtig.text != 4) AND (randnum != 4)) D.visible = false
Das sollte es tun. Du mußt den Kram natürlich noch in richtiges VB umsetzen, aber der Algorithmus sollte so mehr oder weniger hinkommen.

Du solltest dich aber wirklich mal mit deiner Programmiersprache befassen. Diese Aufgabe ist an sich trivial.