VB.Net Telnet timing out.

Private Sub BroadcastTimer_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles BroadcastTimer.Elapsed
        BroadcastTimer.Stop()
 
        Dim ts As TimeSpan = EndTime - Now
        If ts.TotalMinutes > 29 And ts.TotalMinutes < 31 Then
            If Not Broadcast30 Then
                Log.WriteLine("Broadcasting 30 minute warning: ") ' & My.Settings.Message & " 30 minutes.")
                BroadcastNow(My.Settings.Message & " 30 minutes.")
                Broadcast30 = True
            End If
        ElseIf ts.TotalMinutes > 14 And ts.TotalMinutes < 16 Then
            If Not Broadcast15 Then
                Log.WriteLine("Broadcasting 15 minute warning: ") ' & My.Settings.Message & " 15 minutes.")
                BroadcastNow(My.Settings.Message & " 15 minutes.")
                Broadcast15 = True
            End If
        ElseIf ts.TotalMinutes > 4 And ts.TotalMinutes < 6 Then
            If Not Broadcast5 Then
                Log.WriteLine("Broadcasting 5 minute warning: ") ' & My.Settings.Message & " 5 minutes.")
                BroadcastNow(My.Settings.Message & " 5 minutes.")
                Broadcast5 = True
            End If
        ElseIf ts.TotalMinutes > 0 And ts.TotalMinutes < 2 Then
            If Not Broadcast1 Then
                Log.WriteLine("Broadcasting 1 minute warning: ") ' & My.Settings.Message & " 1 minutes.")
                BroadcastNow(My.Settings.Message & " 1 minutes.")
                Broadcast1 = True
            End If
        End If
        BroadcastTimer.Start()
    End Sub
Private Sub CloseTelnet()
        Dim p() As Process = Process.GetProcessesByName("telnet")
        For Each pr As Process In p
            pr.Kill()
            pr.WaitForExit()
        Next
    End Sub
Private Sub BroadcastNow(ByVal msg As String)
        CloseTelnet()
        BroadcastButton.Enabled = False
        BroadcastMsg.Enabled = False
        Dim line As String = ""
        Try
            Log.WriteLine("Broadcasting: " & msg)
            Dim lReturn As Object
            line = "TELNET"
            lReturn = IIf(My.Settings.ShowTelnet, Shell("Telnet " & My.Settings.BroadcastServerIP & " " & My.Settings.BroadcastServerPort, AppWinStyle.NormalFocus, False), Shell("Telnet " & My.Settings.BroadcastServerIP & " " & My.Settings.BroadcastServerPort, AppWinStyle.Hide, False))
            Sleep(5)
            AppActivate(lReturn)
            Sleep(2)
            'login
            line = "LOGIN"
            System.Windows.Forms.SendKeys.SendWait(My.Settings.BroadcastUsername & "{ENTER}")
            Sleep(2)
            ' pass
            line = "PASS"
            System.Windows.Forms.SendKeys.SendWait(My.Settings.BroadcastPassword & "{ENTER}")
            Sleep(2)
            ' broadcast message
            line = "BROADCAST"
            System.Windows.Forms.SendKeys.SendWait("broadcast " & msg & "{ENTER}")
            Sleep(1)
            'LOGOFF
            line = "LOGOFF"
            System.Windows.Forms.SendKeys.SendWait("exit{ENTER}")
            Sleep(2)
            'CLOSE TELNET
            line = "CLOSING 1"
            System.Windows.Forms.SendKeys.SendWait("{ENTER}")
            line = "CLOSING 2"
            System.Windows.Forms.SendKeys.SendWait("%{F4}")
            BroadcastButton.Enabled = True
            BroadcastMsg.Enabled = True
        Catch ex As Exception
            'MsgBox("Error broadcasting: " & line & vbLf & ex.ToString)
            Log.WriteLine("Error broadcasting:" & vbLf & ex.ToString)
            BroadcastButton.Enabled = True
            BroadcastMsg.Enabled = True
        End Try
    End Sub