func Combobox_AddItem(combobox$, editbox$)
	text$ = GetText(editbox$);
	where$ = SendMessage(combobox$, CB_GETCOUNT, 0, 0);
	SendMessage(combobox$, CB_ADDSTRING, where$, text$);
Return(true);
end;


func Combobox_GetSelItem(combobox$, editbox$)
	where$ = SendMessage(combobox$, CB_GETCURSEL, 0, 0);
	text$ = GetItem(combobox$, where$);
	SetText(editbox$, text$);
Return(true);
end;


func Combobox_DelItem(combobox$)
	where$ = SendMessage(combobox$, CB_GETCURSEL, 0, 0);
	SendMessage(combobox$, CB_DELETESTRING, where$, 0);
Return(true);
end;


func Combobox_UpdateItem(combobox$, editbox$)
	text$ = GetText(editbox$);
	where$ = SendMessage(combobox$, CB_GETCURSEL, 0, 0);
	SendMessage(combobox$, CB_DELETESTRING, where$, 0);
	SendMessage(combobox$, CB_INSERTSTRING, where$, text$);
	//SendMessage(combobox$, CB_SETCURSEL, where$, text$); ?? is that functionnal for a replace ??
Return(true);
end;


func Combobox_LoadFromList(combobox$, slist$)
	i$=0;
	scount$ = Count(slist$);
	  while (i$ < scount$)
	  SendMessage(combobox$, CB_ADDSTRING, i$, slist$);
	  Next(slist$);
	  i$++;
	end;
Return(true);
end;


func Combobox_Clear(combobox$)
	SendMessage(combobox$, CB_RESETCONTENT, 0, 0);
Return(true);
end;


func Combobox_LoadFromFile(combobox$, Filename$)
	s$ = LoadStr(Filename$, i$);
	List(slist$);
	StrToList (s$, "\n", slist$);
	i$=0;
	scount$ = Count(slist$);
	  while (i$ < scount$)
	  SendMessage(combobox$, CB_ADDSTRING, i$, slist$);
	  Next(slist$);
	  i$++;
	end;
Return(true);
end;


func Combobox_SaveToFile(combobox$, Filename$)
scount$ = SendMessage(combobox$, CB_GETCOUNT, 0, 0);
 List(slist$);
 i$ = 0;
  while (i$ <= scount$)
    Add(slist$);
    slist$ = GetText(combobox$);
    SendMessage(combobox$, CB_SETCURSEL, i$, 0);
    i$++;
  end;
  savetext$ = ListToStr (slist$, "\n", "");
  SaveStr(Filename$, savetext$, length(savetext$));
 Return(true);
end;

//Usage:

//Combobox_AddItem(COMBOBOX101$,EDIT105$);
//Combobox_GetSelItem(COMBOBOX101$,EDIT105$);
//Combobox_DelItem(COMBOBOX101$);
//Combobox_UpdateItem(COMBOBOX101$,EDIT105$);
//Combobox_LoadFromList(COMBOBOX101$, slist$);
//Combobox_Clear(COMBOBOX101$);
//Combobox_LoadFromFile(COMBOBOX101$, "\\My Documents\\ComboBox1.txt");
//Combobox_SaveToFile(COMBOBOX101$, "\\My Documents\\ComboBox1.txt");