Apollonius #1 Well here it is maybe theres an error ... While WaitEvent() Select EventID() Case evWindowClose Select EventSource() Case wndMain End Case wndAbout HideGadget wndAbout End Select ...