[Solved]Program just closes

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

   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