BleepingComputer.com: Take a look: SmallBasicm, i'ts great!

SmallBasic (SB) is a new IDE released by DevLabs, it is great for begginers being a simpler language with a great interface, i usually use vb but this is very interesting.

You can download it here from MSDN and this also contains the forums.
Heres the code of what i have just made:

'My first SB app, not my first VB one though;)
'Learnt all of this syntax from all of you =D thankyou!
'By Oliver Caldwell, 15, VB and SB rule!
'And this runs off my memory stick...code in school =)

posx = GraphicsWindow.Width / 2
posy = GraphicsWindow.Height / 2
Switch1 = False
GraphicsWindow.Show()
GraphicsWindow.Title = "Etch a scetch!"
GraphicsWindow.Width = 1000
GraphicsWindow.Height = 700
GraphicsWindow.Left = 20
GraphicsWindow.Top = 20
GraphicsWindow.BackgroundColor = "Red"
GraphicsWindow.BrushColor = "Gray"
GraphicsWindow.FillRectangle(20, 20, 960, 660)
GraphicsWindow.BrushColor = "White"
GraphicsWindow.FillEllipse(10, 650, 100, 100)
GraphicsWindow.FillEllipse(890, 650, 100, 100)
GraphicsWindow.BrushColor = "Black"
GraphicsWindow.MouseDown = MouseDown
GraphicsWindow.MouseUp = MouseUp
GraphicsWindow.MouseMove = OnMouseMove

 Sub MouseDown
  Switch1 = "True"
 EndSub

 Sub MouseUp
  Switch1 = "False"
 EndSub

 Sub OnMouseMove
  If Mouse.MouseX > posx And Switch1 = "True" Then
	posx = posx + 1
	GraphicsWindow.FillRectangle(posx, posy, 1, 1)
  ElseIf Mouse.MouseX < posx And Switch1 = "True" Then
	posx = posx - 1
	GraphicsWindow.FillRectangle(posx, posy, 1, 1)
  EndIf
  If Mouse.MouseY > posy And Switch1 = "True" Then
	posy = posy + 1
	GraphicsWindow.FillRectangle(posx, posy, 1, 1)
  ElseIf Mouse.MouseY < posy And Switch1 = "True" Then
	posy = posy - 1
	GraphicsWindow.FillRectangle(posx, posy, 1, 1)  
  Endif
 EndSub

Only that much and i have made a nice little etch a scetch program =D

Have fun, Wolfy87.

SmallBasic requires .NET 3.5