SHARE
TWEET

Untitled

a guest Aug 19th, 2019 62 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top