Visual Basicのコード一覧 | Codetter（こーどったー）

Sub hoge(ByRef a)
	set a=CreateObject("Scripting.Dictionary")
	a.Add "a","changed"
End Sub

Const psnName=0
Const psnAge=1
Const psnHeight=2

Function NewPerson(name,age,height)

; 選択してからPauseキーを押す。（10行まで）
Pause::

	cb_bk = %ClipboardAll%

Pause::
	cb_bk = %ClipboardAll%
	
	Clipboard =
	Send, ^c

Public Sub DestroyHRgn(objForm As Form)

Dim lngRet As Long
Dim lngTmpRgn As Long

Sub yakusuu()
 
 Dim x As Long
 Dim i As Long
 Dim sum As Long

10 PRINT "HIT ANY KEY"
20 I$=INPUT$
30 IF I$="" THEN GOTO 20
40 BEEP
50 GOTO 40