PageRenderTime 23ms CodeModel.GetById 19ms app.highlight 1ms RepoModel.GetById 0ms app.codeStats 0ms

/src/mk2/addons/demo-anything/script.vbs

http://phatbar.googlecode.com/
Visual Basic | 25 lines | 16 code | 9 blank | 0 comment | 0 complexity | b051b247c376f6eafabe78179c0798f3 MD5 | raw file
 1
 2Sub pba_Init()
 3
 4  AddOn.Hint = "Tell me what I typed"
 5  AddOn.SupportsAnything = True
 6
 7End Sub
 8
 9Function pba_Parse(Args)
10Dim sz
11Dim i
12
13  If Args.Count Then
14    For i = 1 To Args.Count
15      sz = sz & Args.Item(i)
16      If i < Args.Count Then _
17	sz = sz & " "
18
19    Next
20
21  End If
22
23  MsgBox "You typed '" & sz & "'"
24
25End Function