Print

[flattspott]

(IMG:http://img51.photobucket.com/albums/v157/flattspott/3dbox.jpg)

CODE

Set Scale 100 Set gLeft 300 Set gTop 200 Set XPos %gLeft% Set YPos %gTop% Set H1 %(YPos+Scale)% Set W1 %(XPos+Scale)% :DrawBOX BeginDraw Line %(W1/2)% %(H1/2)% %XPos% %YPos% WHITE Line %(W1/2+Scale)% %(H1/2+Scale)% %(XPos+Scale)% %(YPos+Scale)% WHITE Line %(W1/2+Scale*2)% %(H1/2+Scale)% %(XPos+Scale*2)% %(YPos+Scale)% WHITE Line %(W1/2+Scale)% %(H1/2)% %(XPos+Scale)% %YPos% WHITE Line %(W1/2)% %(H1/2)% %(W1/2+Scale)% %(H1/2+Scale)% WHITE Line %XPos% %YPos% %(Scale+XPos)% %(Scale+YPos)% WHITE Line %(XPos+Scale)% %YPos% %XPos% %YPos% WHITE Line %(XPos+Scale)% %YPos% %(XPos+Scale*2)% %(YPos+Scale)% WHITE Line %(XPos+Scale)% %(YPos+Scale)% %(XPos+Scale*2)% %(YPos+Scale)% WHITE Line %(W1/2)% %(H1/2)% %(W1/2+Scale)% %(H1/2)% WHITE Line %(W1/2+Scale*2)% %(H1/2+Scale)% %(W1/2+Scale)% %(H1/2)% WHITE Line %(W1/2+Scale)% %(H1/2+Scale)% %(W1/2+Scale*2)% %(H1/2+Scale)% WHITE EndDraw IQWaitMsg Any If %Msg_ID% == "UI_LF" Then Sub XPos 2 EndIf If %Msg_ID% == "UI_RT" Then Add XPos 2 EndIf If %Msg_ID% == "UI_UP" Then Sub YPos 2 EndIf If %Msg_ID% == "UI_DN" Then Add YPos 2 EndIf If %Msg_ID% == "UI_SELECT" Then Add Scale 2 EndIf If %Msg_ID% == "MUSIC_NEXT" Then Sub Scale 2 EndIf If %Msg_ID% == "UI_BACK" Then Goto EXIT EndIf Set H1 %(YPos+Scale)% Set W1 %(XPos+Scale)% Goto DrawBOX :EXIT Quit

Again from a VisualBasic app I found  <

[geniusalz]

Cool  <