Skip to content

Instantly share code, notes, and snippets.

@facebookegypt

facebookegypt/gist:5068414

Created March 1, 2013 22:25
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save facebookegypt/5068414 to your computer and use it in GitHub Desktop.
Save facebookegypt/5068414 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.vb
Option Explicit
Const vbDarkBlue = &H800000
Dim X As Single
Private Sub Form_Load()
X = 200
With Me
.DrawMode = vbCopyPen
.DrawStyle = vbDash
.DrawWidth = 1
.Line ((Label2.Left + X), Label2.Height + X)-((.Width - Label2.Left) - X, (Label2.Height + X)), vbDarkBlue
End with
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment