Private Type pintuxy X As Integer Y As IntegerEnd TypeDim a(2, 2) As BooleanDim b(2, 2) As pintuxyDim win As Boolean, begin As Boolean, haveload As Boolean, start As BooleanPrivate Sub Form_Load() Me.Height = 4400: Me.Width = 4000Scale (0, 0)-(3, ... |
|