Option Explicit
 
Private Sub Form_Load()
    Dim A() As Long, P() As Long
    Dim N As Long, Z As Long
    ReDim A(99)                     ' Массив

Option Explicit
Private Type COPYDATASTRUCT

' © Кривоус Анатолий Анатольевич (The trick), 2013
Dim SegData(9) As Byte
Private Sub Form_Load()
    SegData(0) = &H7E '0
    SegData(1) = &H30

' © Кривоус Анатолий Анатольевич (The trick), 2013
Option Explicit
 
Declare Function EnumThreadWindows Lib "user32" (ByVal dwThreadId As Long,

 ' © Кривоус Анатолий Анатольевич (The trick), 2013
Option Explicit
 
Public Type POINT
    X As Long
    Y As Long
End

 ' © Кривоус Анатолий Анатольевич (The trick), 2013
Option Explicit
 
Private Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As

Option Explicit
 
' Крестики-нолики
' © Кривоус Анатолий Анатольевич (The trick), 2013
 
Dim i As Long, j As Long, r As Long,