Visual Basic

Dim mf As Metafile
        Dim ps As New PrinterSettings()


        'Dim gr As Graphics = ps.CreateMeasurementGraphics()
        Dim gr As Graphics = Me.CreateGraphics()



        gr.PageUnit = System.Drawing.Imaging.MetafileFrameUnit.Millimeter
        gr.PageScale = 1

        Dim me_hdc As IntPtr = gr.GetHdc

        mf = New Metafile("c:\test\myfile.emf", me_hdc, New Rectangle(0, 0, 50.0F, 50.0F), MetafileFrameUnit.Millimeter, EmfType.EmfOnly)

        gr.ReleaseHdc(me_hdc)
        gr.Dispose()

        g = Graphics.FromImage(mf)
        g.PageUnit = System.Drawing.Imaging.MetafileFrameUnit.Millimeter

        g.PageScale = 1

        g.FillRectangle(Brushes.Black, 0.0F, 0.0F, 1.0F, 20.0F)

        g.Dispose()

Dim pingsender As New Ping
Dim HostName As String

'For x = 1 To 3
For i = 0 To 9
HostName = "CN0809B2-DW061" + i.ToString '+ x.ToString
If pingsender.Send(HostName).Status = IPStatus.Success Then
txtPingResult.Text += String.Format("Reply from: " & HostName & vbCrLf)

Else
txtPingResult.Text += String.Format("No Reply From: " & HostName & vbCrLf)

End If

Me.Refresh()

'Pause for 1 second before pinging again
System.Threading.Thread.Sleep(1000)

'Next
Next
txtPingResult.Text = ""