VB Code:
Private Type square 'Made private as is in one form
mine As Boolean 'false = no mine, true = mine
stay As Double '0(not yet keyed), 1(keyed), 2(flagged)
near As Double 'mines near to squares
End Type
Dim MySquare as square 'This creates ur variable
'You could also make an array eg Dim MySquare() as square
'When u refer to it in future, u refer to the variable and not the
'type, so (say, in a button click evnt)
With Mysquare
.mine = True
.stay = 2
.near = 2
End with
'Also, i am not sure why ur stay and near internal variables are
'doubles as surely bytes would do the job.
Regards