Visual Basic

Private Sub cmdOK_Click()
    'check for correct password
    If txtPassword = "123" Then
        
        'place code to here to pass the
        'success to the calling sub
        'setting a global var is the easiest
        LoginSucceeded = True
        Me.Hide
        frmMain.Show
    Else
        MsgBox "Invalid Password, try again!", , "Login"
        txtPassword.SetFocus
        
        SendKeys "{Home}+{End}"
    End If
End Sub

Imports System.Net.Sockets
Imports System.Text
Imports System.IO
Imports System.Net
Dim receiveBytes As [Byte]()
Dim LenBytes As Long = 0
Dim ReceiveArray As [Byte] (,)

Private Function Go() As Array

Broadcast()
    For n = 1 To 32
        Listen()
        If LenBytes > 160 Then
            For m = 1 To LenBytes
                ReceiveArray(n - 1, m - 1) = receiveBytes(m - 1)
            Next m
        End If
    Next n
    Return ReceiveArray

End Function

Private Sub Broadcast()
    Dim broadcaster As New UDPClient(CType(MainForm.Text_UDP_Port.Text,Integer))
    Dim bytes(1024) As Byte
    bytes = System.Text.Encoding.ASCII.GetBytes("BURNR")
    broadcaster.send(bytes, bytes.Length, "255.255.255.255, CType(MainForm.Text_UDP_Port.Text, Integer))
    broadcaster.Close
End Sub

    Dim RemoteIPEndPoint As New System.Net.IPEndPoint(System.Net.IPAddress.Any, 20034)
    Dim Listener As New UdpClient(20034)

    receiveBytes = Listener.Receive(RemoteIPEndPoint)
    LenBytes = UBound(receiveBytes) - LBound(receiveBytes) - 1
    Listener.Close()
End Sub