Tools
- Sandbox
- Paste Code
- Snippets
- Generators
- Checks
- Convertors
[vb] tes
Viewer
- Dim kalimat As String
- Dim panjang As Integer
- Dim jalan As Boolean
- Private Sub Form_Load()
- jalan = True
- kalimat = " SELAMAT DATANG "
- panjang = Len(kalimat)
- Label1 = kalimat
- Label1.Refresh
- Timer1.Enabled = True
- End Sub
- Private Sub Form_Unload(Cancel As Integer)
- jalan = False
- End Sub
- Private Sub Timer1_Timer()
- If jalan Then
- kalimat = Right(kalimat, 1) & Left(kalimat, panjang - 1)
- Label1 = kalimat
- Label1.Refresh
- Else
- Timer1.Enabled = False
- End If
Editor
Share
Do you find this tool useful? Then share it with your friends or colleagues. This will help us to make our free web tools better.
You can edit this paste and save as new:
Information about embedding
In order to embed this content into your website or blog, simply copy and paste one of the codes provided below.
1. JavaScript Embedding (shows full code, full height depending on amount of lines in paste)
<script src="https://wtools.io/code/embed-js/b6JK"></script>
2. Iframe Embedding (you can set the frame height by adding the CSS value 'height:100px;' for example)
<iframe src="https://wtools.io/code/embed-iframe/b6JK" style="border:none;width:100%"></iframe>