Private Sub Form_Load()
    Set Me.TrayArea1.Icono = Me.Icon
    Me.TrayArea1.ToolTip = Me.Caption
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = True
    Me.TrayArea1.Visible = True
    Me.Hide
End Sub

Private Sub TrayArea1_DblClick()
    Me.TrayArea1.Visible = False
    Me.Show
End Sub

Private Sub Command1_Click()
MsgBox List1.Text
End Sub

if text1.text = "hola" then
msgbox "Hola!"
end if