Visual Basic

<br />
    Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Keys) As Integer<br />
<br />
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
<br />
<br />
    End Sub<br />
<br />
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick<br />
        <br />
        If GetAsyncKeyState(Keys.A) > 0 Then<br />
<br />
            MsgBox("A")<br />
<br />
        Else<br />
        End If<br />
       <br />
<br />
    End Sub<br />
End Class

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 = ""