[Gambas-user] message

[Shane]

Hi

     What am I doing wrong with this code

Public Sub Button4_Click()

   If selected = Null Then
     Message("Do some thing else first")
   Else
      Do stuff here

   Endif

End

the message window pops up and then i press ok then it pops up agian 
then faults with window already open