sub something {


	$richEdit = new Win32::GUI::RichEdit (
									$infoWindow,
									-width => 400,
									-height => 200,
									-name => "RichEdit",
									-text => $text,
                                    -tabstop => 1,
									#-disabled=> 1,
                                    -autovscroll => 1,
									-addstyle => WS_CHILD | WS_VISIBLE | WS_VSCROLL | ES_LEFT | ES_MULTILINE
									| ES_AUTOVSCROLL
									#| ES_READONLY
									| ES_WANTRETURN
									-addexstyle => WS_EX_CLIENTEDGE
									);
}