Public Sub checking2()
        Dim num6 As Integer = 0
        Try
            ProjectData.ClearProjectError()
            Dim text As String = Conversions.ToString(1)
            Dim num7 As Integer = 1
            Dim num8 As Integer
            Dim num9 As Integer
            Do
                Me.drv1.FindElement(By.XPath("//*[@id=""ng-app""]/body/div[6]/div[2]/div/div/div[3]/div[2]/div[2]/div/div[" + text + "]/div[1]/a")).Click()
                Dim text2 As String = ""
                text2 = Me.drv1.FindElement(By.CssSelector("span[ng-bind=""'@' + user.username""]")).Text
                If Operators.CompareString(text2, "", False) <> 0 Then
                    Dim italk_RichTextBox As iTalk_RichTextBox = Me.ITalk_RichTextBox1
                    italk_RichTextBox.Text = italk_RichTextBox.Text + text2 + vbCrLf
                End If
                text = Conversions.ToString(Conversions.ToDouble(text) + 1.0)
                Me.drv1.FindElement(By.XPath("//*[@id=""ng-app""]/body/div[7]/div[2]/div/div/div[1]/div[1]/div[1]/a")).Click()

                num7 += 1
                num8 = num7
                num9 = 200
            Loop While num8 <= num9
        Catch ex As Exception
        End Try
        If num6 <> 0 Then
            ProjectData.ClearProjectError()
        End If
    End Sub