Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'kobac
- Imports System
- Imports System.Runtime.ConstrainedExecution
- Imports System.Windows.Forms
- Imports Microsoft.VisualBasic.Interaction
- Imports Microsoft.VisualBasic.Devices
- Imports System.Text
- Imports System.Resources.ResourceManager
- Namespace Program
- Public Class Main
- #Region " Designer "
- Inherits Form
- Friend WithEvents Button1 As System.Windows.Forms.Button
- Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
- Private Components As System.ComponentModel.IContainer
- Public Sub New()
- MyBase.New()
- Application.EnableVisualStyles()
- InitializeComponent()
- Me.Button1 = New System.Windows.Forms.Button()
- Me.TextBox1 = New System.Windows.Forms.TextBox()
- Me.SuspendLayout()
- '
- 'Button1
- '
- Me.Button1.Location = New System.Drawing.Point(314, 382)
- Me.Button1.Name = "Button1"
- Me.Button1.Size = New System.Drawing.Size(75, 23)
- Me.Button1.TabIndex = 0
- Me.Button1.Text = "Count"
- Me.Button1.UseVisualStyleBackColor = True
- '
- 'TextBox1
- '
- Me.TextBox1.Location = New System.Drawing.Point(12, 12)
- Me.TextBox1.MaxLength = 327670000
- Me.TextBox1.Multiline = True
- Me.TextBox1.Name = "TextBox1"
- Me.TextBox1.ScrollBars = System.Windows.Forms.ScrollBars.Both
- Me.TextBox1.Size = New System.Drawing.Size(683, 351)
- Me.TextBox1.TabIndex = 1
- Me.TextBox1.Text = ""
- Me.TextBox1.WordWrap = True
- '
- 'Form1
- '
- Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
- Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
- Me.ClientSize = New System.Drawing.Size(707, 417)
- Me.Controls.Add(Me.TextBox1)
- Me.Controls.Add(Me.Button1)
- Me.Name = "TexTer"
- Me.Text = "TexTer"
- Me.ResumeLayout(False)
- Me.PerformLayout()
- End Sub
- Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
- If Disposing Then If Not Components Is Nothing Then Components.Dispose()
- MyBase.Dispose(Disposing)
- End Sub
- <System.Diagnostics.DebuggerStepThrough()> _
- Private Sub InitializeComponent()
- End Sub
- #End Region
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- textbox1.text="Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum.Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum.Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum.Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum.Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum.Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum.Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum.Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum.Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum.Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum.Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum.Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum.Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum.Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum."
- msgbox("This TextBox contains: " & TextBox1.Text.Length & " letters")
- End Sub
- End Class
- End Namespace
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement