Guest User

Untitled

a guest
Aug 19th, 2019
65
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Private Sub form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  2. Dim form2add As New Form2
  3. form2add.TopLevel = False
  4. SplitContainer1.Panel2.Controls.Add(form2add)
  5. form2add.Show()
  6.  
  7. Dim form3add As New Form3
  8. form3add.TopLevel = False
  9. SplitContainer1.Panel2.Controls.Add(form3add)
  10. form3add.Show()
  11.  
  12. Dim form4add As New Form4
  13. form4add.TopLevel = False
  14. SplitContainer1.Panel2.Controls.Add(form4add)
  15. form4add.Show()
  16. End Sub
  17.  
  18. Form2.ListBox1.Items.Add("Texto a ser adicionado")
  19.  
  20. Friend WithEvents form2add As Form
  21. Private Sub form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  22. form2add = New Form2() ' Criado a referência semi-pública do objeto '
  23. form2add.TopLevel = False
  24. SplitContainer1.Panel2.Controls.Add(form2add)
  25. form2add.Show()
  26. ...
  27.  
  28. form2add.ListBox1.Items.Add("Texto a ser adicionado")
RAW Paste Data