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

[Incures]

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"

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