Outro VB2010 - como fazer 1 game loop e timers com precisão?

[Cambalinho]

em VB2010, como posso fazer 1 game loop e timers com precisão?

 o máximo que consigo é 100FPS e só desenhar 2 circulos preenchido com 1 cor 

Public Class Form1

    Dim blnGameloop As Boolean = True
    Dim FrameCount As Integer
    Dim FPS As Integer

    Dim result As New Bitmap(900, 500)
    Dim gresult As Graphics = Graphics.FromImage(result)
    Dim g As Graphics
    Dim tmr As Integer

    Dim PosX As Integer
    Dim PosY As Integer

    Private Sub ClearMemory()
        blnGameloop = False
        result.Dispose()
        g.Dispose()
        gresult.Dispose()
        End
    End Sub

    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        ClearMemory()

    End Sub

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If (e.KeyCode = Keys.Escape) Then
            ClearMemory()
        ElseIf (e.KeyCode = Keys.Up) Then
            PosY -= 1
        ElseIf (e.KeyCode = Keys.Down) Then
            PosY += 1
        ElseIf (e.KeyCode = Keys.Left) Then
            PosX -= 1
        ElseIf (e.KeyCode = Keys.Right) Then
            PosX += 1
        End If
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Show()
        Me.Focus()
        tmr = TimeOfDay.Second
        Do

            Application.DoEvents()

            g = Me.CreateGraphics
            gresult.FillRectangle(Brushes.Blue, 0, 0, Me.Width, Me.Height)
            gresult.FillEllipse(Brushes.Aqua, PosX, PosY, 100, 100)
            gresult.FillEllipse(Brushes.Brown, PosX + 50, PosY + 50, 100, 100)
            gresult.DrawString("FPS: " & CStr(FPS), Me.Font, Brushes.Black, 10, 10)
            g.DrawImage(result, 0, 0)
            FrameCount += 1
            If (tmr <> TimeOfDay.Second) Then
                FPS = FrameCount
                FrameCount = 0
                tmr = TimeOfDay.Second
            End If

        Loop While (blnGameloop = True)
    End Sub

End Class

parecem 2 tópicos, mas 1 depende do outro

[devair1010]

@Cambalinho    creio que o fator "FPS"  depende de qual configuração do pc em que estejam rodando esse seu código , pois aqui  só consegui 12 e 11  FPS's .

[Cambalinho]

ainda bem que testou  o código.. tenho 1DLL criada no VB6, com funções API, e consigo o dobro
mas penso conseguir mais desempenho(sempre que altero o Forecolor e FillColor, o brush e a pen são recriados e selecionados... estou a pensar mudar isso e usar variáveis para pen e brush... assim só crio 1 vez.. apenas estou confuso devido ao brush\pen de origem ou anterior... deveria o guardar ou ignorar?)
agora tenho outro problema, por isso ontem criei o topico... queria resolver 1 bug gráfico