Private Sub BtnSend_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles BtnSend.Click
 
        var1 = Me.TxtSsendvalue1.Text
        var2 = Me.TxtSsendvalue2.Text
        var3 = Me.TxtSsendvalue3.Text
        var4 = Me.TxtIPAddress.Text
        var5 = Me.TxtSpdpn.Text
        'Dim sarray() As Single = {var1, var2, var3} ' diese Array möchte _
          einsetzen d.h an der stelle hier wo var1 steht 
 
        UDP_Send("var4", var5, var1)
 
    End Sub
    Public Sub UDP_Send(ByVal Host As String, ByVal Port As Integer, ByVal Data _
      As Integer)
 
' hier möchte data hier als Array definieren
' das funfktionniert nur mit einem Wert 
 
        Dim sendBytes As [Byte]() = Encoding.Unicode.GetBytes(Data)
 
        Try
            'GLOIP = IPAddress.Parse(Me.TxtIPAddress.Text)
            GLOIP = (Me.TxtIPAddress.Text)
            GLOINTPORT = CInt(TxtSpdpn.Text)
            udpClient.Connect(GLOIP, GLOINTPORT)
            UDP_Client.Send(sendBytes, sendBytes.Length)
 
        Catch e As Exception
            RaiseEvent Sock_Error(e.ToString)
        End Try
 
 
    End Sub

hallo ich lerne gerade visual donet und m?chte gern an den Foren teilnehmen