Private Sub ChamsTMR_Tick(sender As Object, e As EventArgs) Handles ChamsTMR.Tick
        Dim trpr As String = (sf2)
        Dim trprc As Process() = Process.GetProcessesByName(sf2)
        Dim address As Integer = &H5CD7B1
        Dim address2 As Integer = &H5CD7BF
        Dim address3 As Integer = &H5CD7CD
        Dim address4 As Integer = &H5CD7DB
        Dim address5 As Integer = &H5CD7E9
        Dim address6 As Integer = &H5CD7B5
        Dim address7 As Integer = &H5CD7C3
        Dim address8 As Integer = &H5CD7D2
        Dim address9 As Integer = &H5CD7DF
        Dim address10 As Integer = &H5CD7ED
        Dim value As Int64 = 2425393296
        Dim value2 As Int64 = 267620496
        RECED(trprc(0).Handle, address, value, 4, 0)
        RECED(trprc(0).Handle, address2, value, 4, 0)
        RECED(trprc(0).Handle, address3, value, 4, 0)
        RECED(trprc(0).Handle, address4, value, 4, 0)
        RECED(trprc(0).Handle, address5, value, 4, 0)
        RECED(trprc(0).Handle, address6, value2, 4, 0)
        RECED(trprc(0).Handle, address7, value2, 4, 0)
        RECED(trprc(0).Handle, address8, value2, 4, 0)
        RECED(trprc(0).Handle, address9, value2, 4, 0)
        RECED(trprc(0).Handle, address10, value2, 4, 0)
    End Sub
End Class