by Anonymous (267 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 6th February 2000
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
This function puts a border around a usercontrol,this function also includes multiple colors and sizes!
VBcoders
'before you run this in your code, thanks :)
Private Function CTL_Border(BorderSize As Integer, BorderColor As String)
For a = 0 To BorderSize
UserControl.Line (0, a)-(UserControl.Width, a), BorderColor
UserControl.Line _
(0, UserControl.Height - 10 - a)-(UserControl.Width, UserControl.Height - 10 - a), BorderColor
UserControl.Line (a, 0)-(a, UserControl.Height), BorderColor
UserControl.Line _
(UserControl.Width - 10 - a, 0)-(UserControl.Width - 10 - a, UserControl.Height - 10), BorderColor
Next a
End Function
No comments have been posted about This function puts a border around a usercontrol,this function also includes multiple colors and si. Why not be the first to post a comment about This function puts a border around a usercontrol,this function also includes multiple colors and si.
