Use bitmap fonts (see my sig), or just draw different colored versions of the same text with a slight offset:
Function OutlineText(x,y,txt$)
Color 255,0,0
For xoff = -1 to 1
For yoff = -1 to 1
Text x+xoff,y+yoff,txt
Next
Next
Color 255,255,255
Text x,y,txt
End function
(Untested)