[Gambas-user] btn does not work

[Jochen Georges]

Hi gambanauts,

i try to make a button by code.
The program runs, but the button is like passiv.

Any hints?

Thanks in advance.

Beste Grüsse
Jochen

 lb AS Label
  btn AS Button

PUBLIC SUB _new()
  btn = NEW Button(ME)
'   btn = NEW Button(Form1)
  btn.X = 20
  btn.Y = 30
  btn.Width = 80
  btn.Height = 30
  btn.Caption = "Hallo"
  btn.enabled = TRUE

  lb = NEW Label(ME)
  lb.X = 20
  lb.Y = 80
  lb.Width = 200
  lb.Height = 50
  lb.Text = "was wird passieren?"
END

PUBLIC SUB btn_Click()
  lb.Text = "btn"
END