dikine uzanan label ;)

kod:
Private Sub Form_Load()
Dim temp As String
With Label1 ' Label1 'in özellikleri ayarlanıyor
.Alignment = 2
.AutoSize = True
.FontSize = 18
.FontBold = True
.Caption = "DİKİNE"
End With
For i = 1 To Len(Label1) ' Her bir harf için satır başı yapılıyor
temp = temp & Mid$(Label1, i, 1) & vbCrLf
Next
Label1 = temp
temp = ""
With Label2 ' Label2 özellikleri ayarlanıyor
.Alignment = 2
.AutoSize = True
.FontSize = 18
.FontBold = True
.Caption = "LABEL"
End With
For i = 1 To Len(Label2) ' Her bir harf için satır başı yapılıyor
temp = temp & Mid$(Label2, i, 1) & vbCrLf
Next
Label2 = temp
End Sub