[Gambas-user] Shell command

[Shane]

I have this in a sub form

Public sdevices As String


Public Sub SaveOps_Click()

   Settings["Options/CCompCLine"] = TextBox1.Text
   Settings["Options/stmDevice"] = ComboBox1.Current
   'Settings.Save()
   Me.Close
End

Public Sub Form_Open()
  Dim devices As String[]
  Dim d As String
'
    TextBox1.Text = Settings["Options/CCompCLine"]
    Shell "stm8flash -l" To sdevices
'  fill combobox with devices
    devices = Split(sdevices, " ")
    For Each d In devices
      ComboBox1.Add(d)
    Next
'   ComboBox1.Find(Settings["Options/stmDevice"])

End

but when I exit this form and then the main form i get s Seg fault

but with the shell part commented out it is ok what am i doing wrong ?

any ideas

Thanks Shane