WAP to add item to list box

'controls       Property        Setting

'Textbox1        Name            Text1
'                Caption           -

'List1           Name            List1 
                
'Label1          Name            Lebel1
'                Caption          Enter Any Thing

'Label2          Name            Lebel2
'                Caption           Added

'command1        Name            command1
'                Caption         Add
          
'-----------------------------------------------------
'                        CODE

Private Sub command1_click()
If Text1.text<>"" Then
List1 AddItem(Text1.text)
msgbox("You must enter something in list")
End If
else
List1 AddItem(Text1.text)
End Sub