Visual Basic

set WshShell = WScript.CreateObject("WScript.Shell")
 WshShell.run "runas /user:'username' 'script.VBS'"
 WshShell.AppActivate ("runas.exe")

 Dim psi As New System.Diagnostics.ProcessStartInfo
          psi.UseShellExecute = False
          psi.WindowStyle = ProcessWindowStyle.Hidden
          'Win2012 run as admin
          psi.Verb = "runas"

'This will not for Win2012 need to pass User as argument
          'psi.Domain = Domain
          'psi.UserName = UserName
          'Dim pword As New System.Security.SecureString()
          'For Each c As Char In Password
          '    pword.AppendChar(c)
          'Next
          'psi.Password = pword

Imports System.Net
Imports System.Net.Sockets
Imports System.Net.EndPoint
Imports System.Text.Encoding
Imports System.Text

Public Class Form1
    Dim publisher As New Sockets.UdpClient()
    Dim subscriber As New Sockets.UdpClient(8899)
    Dim counterAs Int16
    Dim ep As IPEndPoint

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        counter+= 1
        publisher.Connect(TbTo.Text, TbPort.Text)
        Dim subscriber As New UdpClient()
        Dim sendbytes() As Byte = ASCII.GetBytes(TbSend.Text & Chr(13))

        publisher.Send(sendbytes, sendbytes.Length)
        subscriber.Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        subscriber.Client.ReceiveTimeout = 3000
        subscriber.Client.Blocking = False
        ep = New IPEndPoint(0, 8899)
        subscriber.Connect("10.10.100.254", 8899)
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes("Opened" & Chr(13))
       subscriber.Send(sendBytes, sendBytes.Length)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
            Dim rcvbytes() As Byte = subscriber.Receive(ep)
            TbRcv.Text = counter & ASCII.GetString(rcvbytes) & vbCrLf
        Catch ex As Exception
        End Try
    End Sub

End Class

For i = 0 To 20 Step 1.0
 MsgBox "Blubb"& i &"bla"
Next i