Code:
  Public Sub SendMessage(ByVal message As String)
        On Error Resume Next
        Dim uri As New Uri("http://omegle.com/send?msg=" & message & "&id=" & ID)
        If (uri.Scheme = uri.UriSchemeHttp) Then
            Dim request As HttpWebRequest = HttpWebRequest.Create(uri)
            request.Method = WebRequestMethods.Http.Post
            Dim response As HttpWebResponse = request.GetResponse()
        End If
    End Sub
So it freezes at "Dim response As HttpWebResponse = request.GetResponse()" some times. not all the time. It doesnt actually open the page untill i ask for the response but it locks the program up sometimes.. I have no idea how to fix this..