myForm = VCL.Form("myForm")
myForm.width = 400
myForm.mg = VCL.StringGrid(myForm,"MG")
myForm.mg._ = {align="alClient",DefaultRowHeight = 20, ColCount = 3, RowCount=2, FixedCols = 0, FixedRows = 1}

myForm.mg:SetRow(1,{"Level","Date & Time","Message"})
myForm.mg:SetColWidth({50,100,200})

function myLogger(logPattern,level,osdate,message)
	myForm.mg:SetCell(1,myForm.mg.RowCount,level)
	myForm.mg:SetCell(2,myForm.mg.RowCount,osdate)
	myForm.mg:SetCell(3,myForm.mg.RowCount,message)
	myForm.mg.RowCount = myForm.mg.RowCount + 1
end

local logger = logging.vcl(myLogger)

logger:info("logging.vcl test")
logger:debug("debugging...")
logger:error("error!")
logger:debug("string with %4")