Buat Label Vertikal

Private Function Vertical_Horizontal(ByVal nStr As String) As String
Dim sMyStr As String, i As Integer
Static bVert As Boolean

If bVert = False Then
For i = 1 To Len(nStr)
If i < Len(nStr) Then
sMyStr = sMyStr + Mid$(nStr, i, 1) & vbCrLf
Else
sMyStr = sMyStr + Mid$(nStr, i, 1)
End If
Next
Vertical_Horizontal = sMyStr
bVert = True
Else
For i = 1 To Len(nStr) Step 3
sMyStr = sMyStr + Mid$(nStr, i, 1)
Next
Vertical_Horizontal = sMyStr
bVert = False
End If
End Function

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s