Как на VB отослать широковещательный пакет?

Public Function SendPopupMessage(ByVal ToComputer As String, ByVal Msg As String) As Boolean
 
    Dim secAttr As SECURITY_ATTRIBUTES
    Dim retVal As Long, Data As String, hToSlot As Long, BytesWritten As Long
    
    SendPopupMessage = False
    ComputerName = GetSenderName
    Data = ComputerName + Chr(0) + ToComputer + Chr(0) + Msg ' собирам сообщение для отправки
    MSlotName = 'messngr' ' messngr - майлслот службы сообщений
    FullSlot = '\ ' + ToComputer + 'mailslot ' + MSlotName ' собираем имя mailslot'а
    
    ' заполняем secAttr нулями:
    With secAttr
        .nLength = Len(secAttr)
        .lpSecurityDescriptor = 0
        .bInheritHandle = 0
    End With
    
    ' создаём файл, для записи данных:
    hToSlot = CreateFile(FullSlot, GENERIC_WRITE, FILE_SHARE_READ, secAttr, _
                         CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
 
    If hToSlot <> INVALID_HANDLE_VALUE Then
        BytesWritten = 0
        retVal = WriteFile(hToSlot, ByVal Data, CLng(Len(Data)), BytesWritten, ByVal CLng(0))
        If (retVal = 0) Or (BytesWritten <> Len(Data)) Then
            SendPopupMessage = False
            ' если не удалось записать данные или размер записанных данных
            ' и данных подготовленых для отправки не совпадает то вернуть ложное значение.
        Else
            SendPopupMessage = True
        End If
    End If ' hToSlot<>INVALID_HANDLE_VALUE
    
    Call CloseHandle(hToSlot)
 
End Function

Const MsgSize As Long = 396
 
Function Server() As Boolean
    Dim MaxMessageSize As Long
    Dim NextSize As Long
    Dim MessageCount As Long
    Dim ReadTimeout As Long
    Dim cbRead As Long
 
    Dim hServer As Long
    Dim i As Long
 
    hServer = CreateMailslot('\.mailslotmessngr', MsgSize, 15000, 0)
    If hServer = INVALID_HANDLE_VALUE Then
        MsgBox 'CreateMailslot: Error #' & GetLastError()
        Exit Function
    End If
 
    Do While True
        If CBool(GetMailslotInfo(hServer, MaxMessageSize, NextSize, MessageCount, ReadTimeout)) Then
            If CBool(MessageCount) Then
                If CBool(ReadFile(hServer, InMailslotMessage, MsgSize, cbRead, 0)) Then
                    If cbRead = MsgSize Then
'Благополучно приняли сообщение
                    Else
                        MsgBox 'ReadFile: Error #' & GetLastError()
                        Exit Function
                    End If
                Else
                    MsgBox 'ReadFile: Error #' & GetLastError()
                    Exit Function
                End If
            Else
                Sleep (100) ' Без этой строки цикл отнимает практически 100% процессорного времени
            End If
        Else
            MsgBox 'GetMailslotInfo: Error #' & GetLastError()
            Exit Function
        End If
    Loop
    CloseHandle (hServer)
    Server = True
End Function

Private Sub Timer1_Timer()
   
    Dim NextMsgSize As Long, MsgSize As Long, MsgCount As Long, retVal As Long
    Dim DummyBuffer As String
 
    timerCounter = timerCounter + 1  ' считаем секунды
    
    NextMsgSize = 0
    MsgSize = 0
    retVal = GetMailslotInfo(MailslotHandle, CLng(0), NextMsgSize, MsgCount, CLng(0))
 
    If NextMsgSize <> MAILSLOT_NO_MESSAGE Then
        If NextMsgSize > 5 Then
            ' по формату сообщение не может быть меньше 5 символов, даже от компьютера,
            ' чьё имя состоит из одной буквы.
            Call ReadMessage(NextMsgSize)
        Else
            retVal = ReadFile(MailslotHandle, DummyBuffer, ByVal NextMsgSize, MsgSize, ByVal CLng(0))
            ' считываем в ненужный буфер чтобы сообщение не лежало в слоте.
        End If
    End If
End Sub