Private Sub novrab()

        Dim request As HttpWebRequest = CType(WebRequest.Create("http://moysyte.php"), HttpWebRequest)
        request.ContentType = "application/x-www-form-urlencoded"
        request.Method = "POST"
        Dim result As IAsyncResult = CType(request.BeginGetRequestStream(AddressOf novrab2, request), IAsyncResult)
    End Sub

    Private Sub novrab2(ByVal asynchronousResult As IAsyncResult)

        Dim postData As String = "a=1"
        Dim request As HttpWebRequest = CType(asynchronousResult.AsyncState, HttpWebRequest)
        Dim requestStream As Stream
        requestStream = request.EndGetRequestStream(asynchronousResult)
        '  Convert the string into byte array.
        Dim postBytes As Byte() = System.Text.Encoding.GetEncoding(65001).GetBytes(postData)
        requestStream.Write(postBytes, 0, postBytes.Length)
        requestStream.Close()
        ' Start the asynchronous operation to get the response
        Dim result As IAsyncResult = CType(request.BeginGetResponse(AddressOf novrab3, request), IAsyncResult)

    End Sub

    Private Sub novrab3(ByVal asynchronousResult As IAsyncResult)
        Dim request As HttpWebRequest = CType(asynchronousResult.AsyncState, HttpWebRequest)
        '  Get the response.
        Dim response As HttpWebResponse = CType(request.EndGetResponse(asynchronousResult),
           HttpWebResponse)
        Dim streamResponse As Stream = response.GetResponseStream()
        Dim streamRead As New StreamReader(streamResponse)
        Dim responseString As String = streamRead.ReadToEnd()
        'Console.WriteLine(responseString)
        ' Close Stream object.
        streamResponse.Close()
        streamRead.Close()
        ' Release the HttpWebResponse.
        response.Close()
        If responseString = "yes" Then
            Timer0.Enabled=False
            Timer3.Enabled = True
        End If
    End Sub