Dim bytCommand(24) As Byte    ' Ich schicke 5 Werte vom Typ int oder 
        ' Short dh 5 X      4 + 4 bits
 
        Dim iVar1 As Int32
        Dim fVar1 As Single
        Dim memstream As New MemoryStream
        Dim pRet As Integer
        Dim Binwriter As New BinaryWriter(memstream)
        memstream.Position = 0
 
        Try
            If Me.CBSset1.Text = "int" Then
                iVar1 = CInt(TxtSsendvalue1.Text)
                Binwriter.Write(iVar1)
            Else
                fVar1 = CSng(TxtSsendvalue1.Text)
                Binwriter.Write(fVar1)
            End If
 
            If Me.CBSset2.Text = "int" Then
                iVar1 = CInt(TxtSsendvalue2.Text)
                Binwriter.Write(iVar1)
            Else
                fVar1 = CSng(TxtSsendvalue2.Text)
                Binwriter.Write(fVar1)
            End If
 
            If Me.CBSset3.Text = "int" Then
                iVar1 = CInt(TxtSsendvalue3.Text)
                Binwriter.Write(iVar1)
            Else
                fVar1 = CSng(TxtSsendvalue3.Text)
                Binwriter.Write(fVar1)
            End If
 
            If Me.CBSset4.Text = "int" Then
                iVar1 = CInt(TxtSsendvalue4.Text)
                Binwriter.Write(iVar1)
            Else
                fVar1 = CSng(TxtSsendvalue4.Text)
                Binwriter.Write(fVar1)
            End If
 
 bytCommand = memstream.ToArray()
 
 
 
 
                GLOIP = IPAddress.Parse(Me.TxtIPAddress.Text)       ' IPAddress 
                ' Destination
                GLOINTPORT = CType(Me.TxtSpdpn.Text, Single)      ' Port 
                ' Destination
                udpClient.Connect(GLOIP, GLOINTPORT)
                 pRet = udpClient.Send(bytCommand, 24) 
 
 
        Catch Ex As Exception
            MsgBox("" & Ex.Message)
 
        End Try

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