object missing =\ code inside ...scan it forever =[

Im sirrting aginst that code for 60min and its 8:00 am and i dident sleep =\
i cant find what wrong!?@
its says object missing ....and highlight that
"Set Label.Container = Picturebox1"

Code:

---

Private Sub Form_Load()
Dim Picutrebox As PictureBox
 'make the form pixels for easier drawing... doesn't have to be though
Me.ScaleMode = vbPixels

'draw picturebox
    Set PictureBox = Me.Controls.Add("VB.Picturebox", "Picturebox1")
      With PictureBox
           
            .Left = 1080 + 255 * 1
            .Top = 5040
            .Width = 500 * 2
            .Height = 500 * 2
            .Visible = True
            .BackColor = &H8000000F
    End With
      Dim Label As Label
Set Label = Me.Controls.Add("VB.Label", "CMLabel1")

Set Label.Container = Picturebox1
With Label
            .Left = 0
            .Top = 0
            .Width = 500
            .Height = 500
            .Enabled = False
            .Visible = True
            .Caption = "345 X 345"
           
    End With
End Sub

---

and ... is it possible to check if ther is internet connection on the computer?
which includes routers

Quote:

---

Set Label.Container = Picturebox1

---

should be

vb Code:

Set Label.Container = Me.Controls("picturebox1")

or as the variable picturebox is still in scope, you could use

vb Code:

Set Label.Container = Picturebox

:wave: