Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Public Class Form1 Public Sub New() ' This call is required by the designer. InitializeComponent() ' Add any initialization after the InitializeComponent() call. Me.SetStyle(ControlStyles.ResizeRedraw, True) SetStyle(ControlStyles.AllPaintingInWmPaint, True) SetStyle(ControlStyles.OptimizedDoubleBuffer, True) End Sub Dim myfont As New Font("Tahoma", 12) Dim mybrush As New SolidBrush(Color.Black) Dim mytext As String = "four score and seven years ago our fathers brought forth on this continent a new nationxxxxxxxxxxxxxxxxxxxxxxxxxx" Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint Dim g As Graphics = e.Graphics Dim start_x As Single = 20 Dim y As Single = 20 Dim h As Single = 20 Dim btm As Single = y + h g.DrawRectangle(Pens.LightBlue, New Rectangle(start_x, y, 2000, h)) g.DrawString(mytext, myfont, mybrush, start_x, y) Dim temp_sz As SizeF For n As Integer = 0 To mytext.Length - 1 temp_sz = g.MeasureString(mytext.Substring(0, n + 1), myfont, 2000, System.Drawing.StringFormat.GenericDefault) Dim xtemp As Single = temp_sz.Width + start_x g.DrawLine(Pens.Gray, xtemp, y, xtemp, btm) Next End Sub End Class
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.