Bu dersimizde labele yazdığımız yazıların nasıl dikine uzanabileceğini öğrenelim.
Forma 1 adet label ekleyelim.Yazımız dikine olacağı için labeli dikine doğru uzatalım.Formun "Form_Activate" özelliğini kullanarak labelimize dikey şekili verelim işte yazacağımız kod:
'Sanalkurs.net
Private Sub Form_Activate()
Dim s As String
Label1.Caption = "SanalKurs.Net"
For dik = 1 To Len(Label1)
yaz = yaz & Mid$(Label1, dik, 1) & vbCrLf
Next
Label1 = yaz
End Sub
İşte bu kadar basit. Kolay gelsin arkadaşlar...
