Private Sub Form_Load()
     Me.Caption = "扫雷"
     Dim i%, size%
     size = 375
     With Command1(0)
         .Width = size
         .Height = size
         .Left = 0
         .Top = 0
         .Caption = " "
     End With
     Me.Height = size * 10 + 800
     Me.Width = size * 10 + 400
     With Picture1
         .Height = size * 10 + 50
         .Width = size * 10 + 50
         .Top = 100
         .Left = 100
     End With
     For i = 1 To 99
         Load Command1(i)
         With Command1(i)
             .Left = (i Mod 10) * size
             .Top = (i \ 10) * size
             .Caption = " "
             .Visible = True
         End With
     Next i
End Sub