declare font%,text%,font2%,text2%
SetTrueColor 1
Cls RGB(192,192,192)
SetTrueColor 1
Windowtitle "Einfach 3 D Text gestalten (c) Rolf Koch"
font%=CreateFont("Times New Roman",50,0,0,1,0)
font2%=CreateFont("COURIER NEW",50,0,0,1,0)
text%=CreateText (%hwnd,"Dies ist ein Test",5,5,300,50)
text2%=CreateText (%hwnd,"und noch ein Test",5,75,500,50)
SetFont text%,font%
SetFont text2%,font2%
EnableWindow text%,0
EnableWindow text2%,0
WaitInput
Deleteobject font%
Deleteobject font2%