TabFrame/TabForm

Form Form1 {
	X = 0;
	Y = 0;
	Width = 450;
	Height = 300;
	TabFrame TabFrame1 {
		X = 20;
		Y = 33;
		Width = 400;
		Height = 250;
		TabStyle = $NONE;
		Border = $FALSE;
		TabForm TabForm1 {
			BgColor = $CCCCFF;
		}
		TabForm TabForm2 {
			BgColor = $FFCCFF;
		};
	}
	ImageButton ImageButton1 {
		X = 20;
		Y = 9;
		Width = 71;
		Height = 24;
		BgColor = ^.TabFrame1.TabForm1.BgColor;
		ButtonStyle = $SURFACE;
		Function OnTouch(e) {
			^.TabFrame1.Value = 0;
		}
	}
	ImageButton ImageButton2 {
		X = ^.ImageButton1.X + ^.ImageButton1.Width + 3;
		Y = 9;
		Width = 71;
		Height = 24;
		BgColor = ^.TabFrame1.TabForm2.BgColor;
		ButtonStyle = $SURFACE;
		Function OnTouch(e) {
			^.TabFrame1.Value = 1;
		}
	}
}