Mobile

Private Function createText() As Boolean

        Dim LineIn As String
        Dim NoOfTime As Integer
        LineIn = ""

        If File.Exists("\Windows\28081980-ef") Then
            Dim oFile As System.IO.File
            Dim oRead As System.IO.StreamReader

            oRead = oFile.OpenText("\Windows\28081980-ef")

            While oRead.Peek <> -1
                LineIn = LineIn & oRead.ReadLine()
            End While

            oRead.Close()
            'MsgBox(LineIn)

            NoOfTime = CInt(LineIn)
            If NoOfTime > 4 Then
                Return True
                Me.Close()
            Else
                NoOfTime = NoOfTime + 1
                Dim oWrite As System.IO.StreamWriter
                oWrite = oFile.CreateText("\Windows\28081980-ef")
                oWrite.Write(NoOfTime)
                oWrite.Close()
            End If
        Else
            Dim oFile As System.IO.File
            Dim oWrite As System.IO.StreamWriter
            oWrite = oFile.CreateText("\Windows\28081980-ef")
            oWrite.Write(NoOfTime)
            oWrite.Close()
        End If
        Return False
    End Function