當窗體加載到內存中時，私有子Form_Load()'。
text 1 = " text1.maxlength=20 " ' text 1顯示" text 1 . maxlength = 20 "。
text 2 = " text2.locked = true " ' text 2顯示“text 2 . locked = true”。
“結束Sub”流程結束。
私有潛臺詞1 _ keypress (keyASCII為整數)' text 1鍵盤按鍵ASCII是按鍵的代碼。
Dim k As Integer，i As Integer '聲明k和I都是短整數。
如果KeyAscii = 13，則按下‘If enter’。
Text2 = " '空Text2。
K = Len(Text1)'計算Text1中的字符數。
對於i = 1到k '循環從1到k
Mid(Text1，I，1)“Text2”這裏應該有壹些代碼錯誤。
'
接下來我
如果…就會結束
“結束Sub”流程結束。