One of the ways is using WM_SETFONT message:
SendMessage( ListBox1.Handle, WM_SETFONT, GetStockObject(System_Fixed_Font), 1);