ช่วยแปล Codeให้หน่อยครับ vb2010 เป็นโค๊ดเกี่ยวกับให้เพลงเล่นตามเวลา แต่ผมลองแล้ว ไม่ดัง ไม่ทราบว่าผิดตรงไหนครับ

Do While Operators.ConditionalCompareObjectEqual(Me.checkStart, 0, False)
                If Operators.ConditionalCompareObjectLess(Me.checkTime, Me.startTime, False) Then
                    If Operators.ConditionalCompareObjectGreater(Me.checkTime, Me.buffcheckTime, False) Then
                        Me.buffcheckTime = RuntimeHelpers.GetObjectValue(Me.checkTime)
                        Me.i = Operators.AddObject(Me.i, 3)
                        Me.j = Operators.AddObject(Me.j, 1)
                        Me.checkTime = Conversions.ToInteger((strArray(Conversions.ToInteger(Me.i)) & strArray(Conversions.ToInteger(Operators.AddObject(Me.i, 1))) & strArray(Conversions.ToInteger(Operators.AddObject(Me.i, 2)))))
                    Else
                        Me.checkStart = 1
                    End If
                Else
                    Me.checkStart = 1
                End If
            Loop
            If Operators.ConditionalCompareObjectGreater(Me.checkTime, Me.buffcheckTime, False) Then
                Dim str5 As String = String.Concat(New String() {strArray(Conversions.ToInteger(Me.i)), ":", strArray(Conversions.ToInteger(Operators.AddObject(Me.i, 1))), ":", strArray(Conversions.ToInteger(Operators.AddObject(Me.i, 2)))})
                If (strArray2(Conversions.ToInteger(Me.j)) <> "") Then
                    AxWindowsMediaPlayer1.URL = strArray2(Conversions.ToInteger(Me.j))
                Else
                    AxWindowsMediaPlayer1.URL = "C:\Alarm Data\sound\เสียงกริ่ง.wav"
                End If
                Me.checkWorking = 1
                Me.i = Operators.AddObject(Me.i, 3)
                Me.j = Operators.AddObject(Me.j, 1)
                Me.buffcheckTime = RuntimeHelpers.GetObjectValue(Me.checkTime)
            End If
        Catch
        End Try