[Solved]Program just closes

Posts 1–5 of 5 · Page 1 of 1

Ok, well by clicking on this button:

Code:

    Private Sub ButtonX10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX10.Click
        'health
        health.Enabled = True
    End Sub

Health = timer1

Code:

   Private Sub health_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles health.Tick
        'health
        Dim string1 As Long
        Dim string2 As Integer
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &HEA7804)
            Call CYVLKCNBWG(string2, 999999, 4)
        Catch
            MsgBox(ErrorToString)
        End Try
    End Sub

Game is open. Doesn't work tho...