這一部分的初始化工作在準備按鈕的click事件過程中實現，其核心代碼如下：

　　Dim i As Integer

　　'設置Form窗體屬性

　　Form1.Caption = "準備…"

　　Form1.Cls

　　'設置三個柱子的標記

　　CurrentX = 4000

　　CurrentY = hLevel + 61

　　Form1.FontSize = 16

　　Form1.ForeColor = vbRed

　　Form1.FontBold = True

　　Print "A"

　　CurrentX = 8000

　　CurrentY = hLevel + 61

　　Print "B"

　　CurrentX = 12000

　　CurrentY = hLevel + 61

　　Print "C"

　　Form1.ForeColor = &H80000012

　　Form1.FontSize = 10

　　Form1.FontBold = False

　　'畫底線

　　Form1.Line (0, hLevel)-(15360, hLevel + 100), vbGreen, BF

　　'畫三根柱子，A柱子的柱底坐標是(4000,10300)

　　'縱坐標減10只是為了顯示時看的效果更好一些，其實是不應該減的，減了后柱子底端縱坐標與底線上沿縱坐標就不一致了，但屏幕視覺是一致的

　　Form1.Line (3995, 700)-(4005, hLevel - 10), vbBlack, BF

　　Form1.Line (7995, 700)-(8005, hLevel - 10), vbBlack, BF

　　Form1.Line (11995, 700)-(12008, hLevel - 10), vbBlack, BF

　　number = Val(InputBox("請輸入盤子數：", "輸入數據", "3"))

　　Form1.Caption = "共有" & number & "個盤子"

　　'盤子寬400*i,高度200

　　'相鄰盤子之間的高度差設置為210，如果設置為相差200的話，當把上面一個盤子移走時兩個盤子重疊部分無法重新修復

　　For i = 1 To number

　　Form1.Line ((4000 - (i * 400) / 2), (hLevel - (number + 1 - i) * 210))-((4000 + (i * 400) / 2), (hLevel - (number - i) * 210 - 10)), , BF

　　Next i

　　baseCoordinateY(1) = hLevel - number * 210

　　baseCoordinateY(2) = hLevel

　　baseCoordinateY(3) = hLevel