Public Class Form1

    Dim memory As New Memory.Memory

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 100
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim procs() As Process = Process.GetProcessesByName("S4Client")

        If procs.Length = 0 Then
            Exit Sub
        End If

        Dim s4 As Process = procs(0)



        If CheckBox1.Checked Then
            Memory.WriteFloat(s4, &HF5FB0C, 10000) ' Example 0x11 = &H11, 0x63 = &H63 etc (Replace 0c with &H)

        End If

        If CheckBox3.Checked Then
            memory.WriteString(s4, &HF57634, "0", "5")


        End If




        Timer1.Stop()

        Me.Close()

    End Sub ' TADAAA q.q press start?



End Class