Någonstans så har jag sett att man kunde göra en vertikal text i en picture box, som dessutom var delvis färgad i bakgrunden. Jag förstår vad du menar. Det första stället jag skulle leta på då är www.vbaccelerator.com, därefter på www.vbcode.com Du kan använda Api anrop: Tack Andreas, men jag hittade ett väldigt bra exempel, som jag kommer att lägga in på filarenan.Vertikal text
Någon som vet vad jag menar?Sv: Vertikal text
Hittar du ett bra tips, lägg då gärna upp det i tips & tricks eller filarean.Sv: Vertikal text
<code>
Option Explicit
Private Const LF_FACESIZE As Long = 32&
Private Type LOGFONT
lfHeight As Long
lfWidth As Long
lfEscapement As Long
lfOrientation As Long
lfWeight As Long
lfItalic As Byte
lfUnderline As Byte
lfStrikeOut As Byte
lfCharSet As Byte
lfOutPrecision As Byte
lfClipPrecision As Byte
lfQuality As Byte
lfPitchAndFamily As Byte
lfFaceName(LF_FACESIZE) As Byte
End Type
Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Sub Form_Load()
Dim hFont As Long
Dim LOGFONT As LOGFONT
Dim Text As String
Me.AutoRedraw = True
LOGFONT.lfEscapement = 900
LOGFONT.lfHeight = (20 * -20) / Screen.TwipsPerPixelY
hFont = CreateFontIndirect(LOGFONT)
SelectObject Me.hdc, hFont
Text = "Hello world"
Me.CurrentX = Me.ScaleLeft
Me.CurrentY = Me.ScaleTop + Me.TextWidth(Text)
Me.Print Text
End Sub
</code>Sv: Vertikal text