qbasic proggi in vb

[Potassium]

hi leute
ich will folgendes q-basic proggi in visual basic schreiben

CLS
DIM x AS SINGLE
DIM y AS SINGLE

RANDOMIZE TIMER
y = INT(RND * 100) + 1

DO
INPUT "Bitte geben Sie eine Zahl ein:", x


IF x < y THEN
PRINT " zu klein"
ELSEIF x > y THEN
PRINT "zu groß"
ELSE
PRINT "Richtig"
END IF
LOOP UNTIL x = y
END

so und das jetzt mit graphischem hintergrund.
kann mir da jemand helfen.
mfg