تغییر جهت Label

[alizanganeh]

سلام
میخوام توی برنامم label رو بصورت عمودی قرار بدم

بعنی معمولی نباشه و 90 درجه بچرخه

چیکار باید کنم؟
فکر نمیکنم خود ویژوال بیسیک همچین امکانی داشته باشه
شاید ماژولی چیزی...
ممنون

[alizanganeh]

ینی از 44 نفر که اومدن دیدن 1 نفر نمیتونست بگه حد اقل نمیدونم ؟
بابا فوریه دمتون گرم

[just4froum]

با سلام :

درستش اینه که باید با api انجام بدی که من بلد نیستم :D

ببین این بدردت می خوره ؟

Dim Data() As ColorConstants
Private Sub Command1_Click()
Dim ScanX As Long, ScanY As Long
ReDim Data(Pic.ScaleWidth - 1, Pic.ScaleHeight - 1)

For ScanX = 0 To UBound(Data, 1)
For ScanY = 0 To UBound(Data, 2)
Data(ScanX, ScanY) = Pic.Point(ScanX, ScanY)
Next ScanY
Next ScanX
Pic.Cls

ScanX = Pic.Width
Pic.Width = Pic.Height
Pic.Height = ScanX

For ScanY = 0 To UBound(Data, 2)
For ScanX = 0 To UBound(Data, 1)
Pic.PSet (ScanY, UBound(Data, 1) - ScanX), Data(ScanX, ScanY)
Next ScanX
Next ScanY

End Sub

Private Sub Form_Load()
Pic.ScaleMode = 3
Pic.AutoRedraw = True
Pic.Print "HELLO"
End Sub