Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNew.Click
Dim I As Integer
Dim J As Integer
btnNew.Enabled = False
btnExit.Text = " "
Remaining = 4
Tries = 0
lblMugwumps.Text = "4"
lblGuesses.Text = "0"
MyMap.Clear(pnlGrid.BackColor)
For I = 0 To 9
For J = 0 To 9
Map(I, J) = 0
Next J
Next I
For I = 1 To 4
Do
For J = 1 To 2
P(I, J) = Int(10 * Rnd())
Next J
Loop Until Map(P(I, 1), P(I, 2)) = 0
Map(P(I, 1), P(I, 2)) = 1
Next I
For I = 1 To 4
Map(P(I, 1), P(I, 2)) = 0
Next I
pnlGrid_Paint(Nothing, Nothing)
lblMessage.Text = " "
lblMessage.Refresh()
End Sub
For I = 0 To 9 'ลูปนี้อ่ะเอาไว้สร้างตารางตอนนี้เป็น 9x9 อยู่ถ้าจะเปลี่ยนขนาดก็ตรงนี้แหละ
For J = 0 To 9
Map(I, J) = 0
Next J
Next I
For I = 1 To 4 'ลูปนี้เป็นการ random ซ่อนค่าที่จะทำให้ระเบิดอ่ะ ถ้าอยากเพิ่มก็เปลี่ยนจากเลข 4 เป็นจำนวนที่อยากเพิ่ม
Do
For J = 1 To 2
P(I, J) = Int(10 * Rnd())
Next J
Loop Until Map(P(I, 1), P(I, 2)) = 0
Map(P(I, 1), P(I, 2)) = 1
Next I