Перевести код с Delphi на VB .NET (программа имитирует маятник) - Visual Basic .NET - Ответ 2882952

Public Class frmMain
 
    Private Declare Function GetTickCount Lib "kernel32.dll" () As Integer
 
 
    Dim U As Double = 50
    Dim L As Double = 50
    Dim G As Double = 9.8
    Dim A As Double
    Dim T As Double
    Dim D0 As Integer
    Dim gr As Graphics
 
    Private Sub cmdStart_Click(sender As System.Object, e As System.EventArgs) Handles cmdStart.Click
        gr = Me.CreateGraphics
 
        A = L * Math.Sin(U * Math.PI / 180)
        T = 2 * Math.PI * Math.Sqrt(L / G)
 
        D0 = GetTickCount
        tmrTimer.Start()
    End Sub
 
    Private Sub tmrTimer_Tick(sender As System.Object, e As System.EventArgs) Handles tmrTimer.Tick
        Dim X As Double, Y As Double
        Dim DT = (GetTickCount - D0) / 1000
        X = A * Math.Cos(DT / T * 2 * Math.PI)
        Y = Math.Sqrt(L * L - X * X)
 
        'заполняем поверхность белым фоном
        gr.Clear(Color.White)
        'рисуем линию
        gr.DrawLine(Pens.Black, 125, 0, 125 + CSng(x), CSng(y))
    End Sub
 
End Class