Create a Vertical Label Control
Category:Forms and Controls
Version Compatibility: Visual Basic 6
This is a simple way of creating a vertical label out of a picture box and a separate sub routine that allows you to print vertical text anywhere in a picturebox that you might have opened on your form. This is different from a lot of vertical text routines because most of them use a vbcrlf between each letter. That leaves the text very long and does not always look too neat. In these routines we use a vertical space that you can change when you make the call. Being able to change the vertical space between letters is important because all fonts are not equal so experiment with that when you use it. Think in pixels when you change the space. There is a routine that handles that for you and will make the adjustments whether you are using the pixel or twip scale modes. There is a large scope for you to improve these routines as I just bundled them together and, although they're well commented they can do with a lot of improvements. For instance, the X and Y variables in the InsVText routine are used as twips regardless of the mode you are using so, if you want to you can improve that.
Instructions: Click the link below to download the code. Select 'Save' from the IE popup dialog. Once downloaded, open the .zip file from your local drive using WinZip or a comparable program to view the contents.