Dim mac As String = "00-0A-6D-44-E7-0B"
        Dim buf(6 + 6 * 16 - 1) As Byte
        Dim bmac(5) As Byte
        Dim so As New Net.Sockets.Socket( _
          Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Dgram, _
          Net.Sockets.ProtocolType.Udp)
        Dim ep As New Net.IPEndPoint(Net.IPAddress.Parse("192.168.0.255"), 1111)
 
        For i As Byte = 0 To 5
            buf(i) = &HFF
        Next
 
        mac = mac.Replace("-", "")
        mac = mac.Trim
        For i As Byte = 0 To 5
            bmac(i) = Byte.Parse(mac.Substring(i * 2, 2), _
              Globalization.NumberStyles.HexNumber)
        Next
 
        For i As Byte = 0 To 15
            bmac.CopyTo(buf, 6 + i * 6)
        Next
 
        so.SendTo(buf, 0, buf.Length, Net.Sockets.SocketFlags.DontRoute, ep)