....

.open
OpenVfi$=Open$()
If OpenVfi$<>""
   FlushKeys()
EndIf

If EventSource()=toolbar

      Select EventData()
      
      Case 0
      Goto open
            
      End Select

   
EndIf

Function open$()
   openstring$=RequestFile("Öffnen...", "txt","*.txt")
   If openstring$<>0 Or openstring<>""
      Return openstring$
   Else Return ""
   EndIf
End Function

img=CreateImage(96,32)
SetBuffer ImageBuffer(img,0)
Color 255,0,0
Rect 1,1,30,30,1
Color 255,255,0
Rect 33,1,30,30,1
Color 0,255,0
Rect 65,1,30,30,1
SaveImage img,"bild.tmp"
FreeImage img

window=CreateWindow("Window",0,0,300,300,0,1)
toolbar=CreateToolBar("bild.tmp",0,0,96,32,window)
While WaitEvent()<>$803
   If EventSource()=toolbar
      Select EventData()
         Case 0
            OpenVfi$=Open$()
            If OpenVfi$<>""
               FlushKeys()
            EndIf
      End Select
   EndIf
Wend

Function open$()
   openstring$=RequestFile("Öffnen...", "txt","*.txt")
   If openstring$<>""
      Return openstring$
   Else
      Return ""
   EndIf
End Function