txtcalcntrl sve

 Protected Overrides Sub OnDoubleClick(ByVal e As System.EventArgs)
        MyBase.OnDoubleClick(e)

        Dim pnt As Point = MousePosition
        pnt = PointToClient(pnt)

        If pnt.Y > 50 And pnt.Y < Me.Height - 44 Then
            Dim mday As String = m_iDay.ToString
            Form1.Txtsaveyrmnth.Visible = True
            Dim rect As ActRect = FindActiveRectByPoint(pnt)
            Dim [date] As New DateTime(m_iYear, m_iMonth, 1, 0, 0, 0)
            Dim strMonth As String = [date].ToString("MMMM")
            Value = DateTime.MinValue
            Dim path As String = Application.StartupPath & "\Saves\" & m_iYear.ToString & " " & strMonth & "\" & Form1.TextBox1.Text

            Form1.Txtsaveyrmnth.Text = "\Saves\" & m_iYear.ToString & " " & strMonth & "\" & Form1.TextBox1.Text
            If File.Exists(path) Then
                Dim str As New StreamReader(path)
                'txtBox.Text = str.ReadToEnd

                Dim line As String
                Dim textAll As String = ""
                Dim LastLine As Boolean = False

                Do Until LastLine
                    line = str.ReadLine()
                    If line Is Nothing Then
                        LastLine = True
                    Else
                        textAll = textAll & line & vbCrLf 'Chr(13) + chr(10)
                    End If
                Loop
                Form1.Txtnone.Text = textAll
                str.Close()
                Application.DoEvents()
                Form1.Txtnone.Focus()
                Form1.Txtnone.Select(Form1.Txtnone.TextLength, 0)

            Else
                Form1.Txtnone.Text = ""
                Application.DoEvents()
                Form1.Txtnone.Focus()
                Form1.Txtnone.Select(Form1.Txtnone.TextLength, 0)
            End If

        End If





    End Sub



    Sub OnPaintmemtext(ByVal pevent As PaintEventArgs)
        Dim g As Graphics = pevent.Graphics

        Dim [date] As New DateTime(m_iYear, m_iMonth, 1, 0, 0, 0)

        Dim rcDay As New Rectangle

        Dim sdde2 As Font

        Dim GridDeltay As Integer = (Me.Height - 83) / DEF_COLUMNS_COUNT
        Dim GridDeltax As Integer = (Me.Width - 33) / DEF_ROWS_COUNT

        Dim strMonth As String = [date].ToString("MMMM")
        Dim path As String = Application.StartupPath & "\Saves\" & m_iYear.ToString & " " & strMonth

        If GridDeltay > GridDeltax Then
            Dim s2 As Double = CDbl(Math.Round(GridDeltax)) * 0.14
            Dim s_f2 As Single = CSng(s2)
            sdde2 = New Font("Tahoma", s_f2, FontStyle.Bold)
        Else
            Dim s2 As Double = CDbl(Math.Round(GridDeltay)) * 0.14
            Dim s_f2 As Single = CSng(s2)
            sdde2 = New Font("Tahoma", s_f2, FontStyle.Bold)
        End If

        If Not Value = DateTime.MinValue Then 'None mode, Input Text file

            Dim yrmnth As New IO.DirectoryInfo(path)
            If yrmnth.Exists Then

                Dim fold As System.IO.DirectoryInfo
                fold = New System.IO.DirectoryInfo("Saves\" + m_iYear.ToString + " " & strMonth)
                Dim foldi As IO.FileInfo() = fold.GetFiles("**.*")
                Dim foldg As IO.FileInfo

                For Each foldg In foldi

                    Dim objStreamReader As StreamReader
                    Dim strLine As String
                    objStreamReader = New StreamReader(path + "\" + foldg.ToString)
                    strLine = objStreamReader.ReadLine
                    If Not strLine = Nothing Then
                        If strLine.Length > 9 Then
                            strLine = strLine.Substring(0, 8) ' max 9
                        End If
                    End If
                    rcDay = FindActiveRectByTag(CInt(foldg.Name)).Rect
                    g.DrawString(strLine, sdde2, Brushes.Green, rcDay, OneLineNoTrimming2)
                    objStreamReader.Close()

                Next

            End If

        End If


    End Sub