Microsoft Small Basic

Program Listing: MCP222

List Program

GraphicsWindow.Title = "Play MML"
GraphicsWindow.BackgroundColor = "LightGray"
GraphicsWindow.BrushColor = "Black"
GraphicsWindow.DrawText(10, 14, "MML")
tbox = Controls.AddTextBox(50, 10)
Controls.SetSize(tbox, 300, 24)
btn = Controls.AddButton("Play", 10, 40)
Controls.ButtonClicked = OnButtonClicked
Sub OnButtonClicked
mml = Controls.GetTextBoxText(tbox)
Sound.PlayMusic(mml)
EndSub