語法：

<SCRIPT language=vbscript> Dim MyStr, R MyStr = "2001/7/4 更新網友jason的投稿TaskIcon(ActiveX控制項)(V1.0R4)" & vbCrLf & "2001/7/3 更新網友jason的投稿TaskIcon(ActiveX控制項)(V1.0R3) " & vbCrLf & "2001/7/1 感謝網友jason的投稿TaskIcon(ActiveX控制項),加入VB教學部份" & vbCrLf & "2001/6/30 小飛機惡戰原程式碼接受下載,新增無需picture Box載入圖檔範例" & vbCrLf & "2001/6/28　站長的新作VBEx Plane v2.0接受下載。" & vbCrLf & "2001/6/26　新增了多個網站的連結，並在站長所推薦的地方下加上的圖示！" & vbCrLf & "2001/6/25　新增了一個範例和網友投稿－螢幕大報復。" & vbCrLf & "2001/6/20　網友Nelson的投稿Screen Saver Starter接受申請。" & vbCrLf & "2001/6/14　只更新了首頁，和各位網友問問好~" & vbCrLf & "2001/5/27　站長生日！是大日子呀！還有上載了各種程式供大家下載！" R = 0 Sub TypeA() R = R + 1 IF R Mod 2 = 0 Then document.Me.S1.value = Left(MyStr, R) & "_" Else document.Me.S1.value = Left(MyStr, R) End If SetTimeOut "TypeA()", 100 End Sub </SCRIPT>