how can make loop ??

please help me .. i wanna make loop for my receive data, my program only receive data one time. the is the code:

s=serial('com1');

set(s,'BaudRate',9600);

fopen(s);

s.Terminator = 'CR'; 

B=fgets(s);

set(handles.text1,'string',B);

fclose(s)

delete(s)

clear s

[Geoff Hayes]

Abdoo - consider using the BytesAvailableFcn and serial events and callbacks to specify a callback function to execute when a specified number of bytes is available.

[Abdoo]

I have attach two file Mr.Geoff Hayes plz if you can install my attach file and Edit it.

[Geoff Hayes]

Abdoo - I won't be able to run your GUI since I have no source to send data to the GUI via the serial port. Look at the links I posted, and consider how you can work that in to your code.