Public Class Form1
 
    Shared Clients(500) As System.Net.Sockets.UdpClient
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For X As Int64 = 0 To Clients.Count - 1 : Clients(X) = New System.Net.Sockets.UdpClient : Next
    End Sub
 
End Class

AddHandler pic.Click, AddressOf pic_Click

Pero la función pic_Click se tendría que cambiar por Form_Load que es donde está alojada?

       Dim buttonname As String = WebBrowser1.Document.GetElementById("global").GetAttribute("Id")
       Dim getname As String = WebBrowser1.Document.GetElementById(buttonname).GetAttribute("Name")
       Dim prueba1 As String = WebBrowser1.Document.GetElementById(getname & "-nombre").GetAttribute("Value")
       Dim prueba2 As String = WebBrowser1.Document.GetElementById(getname & "-img").GetAttribute("Value")
 
msgbox( _
"1: " & buttonname & _
"2: " & getname  & _
"3: " & prueba1 & _
"4: " & prueba2 )

Si usamos coordenadas del ratón dentro de nuestro formulario, pienso que no tendrá efecto s¡ se cambia de resolución? cierto? o es hasta cierto punto  

button1.location = new point(10, 10)

Dim value As Double
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        value = TextBox1.Text
        TextBox2.Text = (value.ToString("###,###,###,###"))
    End Sub

Public Class Form1
 
    Public Property n1() As Double
        Get
            Return TextBox1.Text
        End Get
        Set(ByVal value As Double)
            TextBox1.Text = value.ToString("###,###,###,###")
        End Set
    End Property
 
    Public Property n2() As Double
        Get
            Return TextBox2.Text
        End Get
        Set(ByVal value As Double)
            TextBox2.Text = value.ToString("###,###,###,###")
        End Set
    End Property
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox3.Text = FormatNumber(n1 + n2, TriState.False)
    End Sub
 
End Class