DİKİNE UZANAN LABEL NASIL YAZILIR

Private Sub Form_Activate() Dim s As String Label1.Caption = “Visual Basic 2000” For i = 1 To Len(Label1) s = s & Mid$(Label1, i, 1) & vbCrLf Next Label1 = s End Sub dikkat: Labe...