Часть1_Visual Basic.Net - Игровой цикл в 1000/сек на API таймере

/*http://esate.ru, gally*/

Public Class Form1

   'для обеспечения работы апи-таймера
   Dim timer As myCallback = AddressOf apitimer1  'от названия зависит обращение к
                                   'процедуре, можете дать свое!
   Public Const elapse_Periodically As Integer = 1

   Public Declare Function timeKillEvent Lib "winmm.dll" (ByVal uID As Integer) As Integer

   Public Declare Function timeSetEvent Lib "winmm.dll" (ByVal interval_Ms As Integer, ByVal resolution_Ms As Integer, ByVal lpFunction As [Delegate], ByVal dwUser As Integer, ByVal uFlags As Integer) As Integer

   Private Delegate Sub myCallback(ByVal uID As Integer, ByVal uMsg As Integer, ByVal dwUser As Integer, ByVal dw1 As Integer, ByVal dw2 As Integer)

   Dim timerID As Integer
   Const strnull As String = Nothing


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      'этот код можно поместить не обязательно здесь
      'timer api
      timerID = timeSetEvent(1, 0, timer, strnull, elapse_Periodically)
      'где цифра "1" после timeSetEvent, сразу за скобкой,
      'вы указываете с какой частотой в мс он будет срабатывать
   End Sub


   Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean

      If keyData = Keys.Escape Then

      'эдесь вы убираете таймер, например после завешения игры
      'Api таймер, сборщиком мусора не убрать полностью
      'Но я лично, часто не убирал, куда только сообщения отсылаются!!!
      'Все равно система нормально работала
      'но об этом ньюансе во второй части 
        timeKillEvent(timerID)
        End
      End If

   End Function


   'Dim timer As myCallback = AddressOf apitimer1 - названия должны совпадать
   Public Sub apitimer1()

   'Здесь помещаете код, цикл игры
   End Sub

End Class