'//////////////Wallhack
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            Try
                Dim sampADDR = GetModuleBaseAddress(proc, "samp.dll")
                Dim distance = ReadDMALong(proc, sampADDR + &H21A0F8, Offsets:={&H3C5, &H27}, Level:=2, nsize:=4)
                Dim calutulauriu = ReadDMALong(proc, sampADDR + &H21A0F8, Offsets:={&H3C5, &H2F}, Level:=2, nsize:=4)
                If calutulauriu <> 512 Then
                    WriteDMALong(proc, sampADDR + &H21A0F8, Offsets:={&H3C5, &H27}, Value:=1203982336, Level:=2, nsize:=4)
                    WriteDMALong(proc, sampADDR + &H21A0F8, Offsets:={&H3C5, &H2F}, Value:=512, Level:=2, nsize:=4)
                    wallhack = "ON"
                End If

            Catch ex As Exception
            End Try
        Else
            Try
                Dim sampADDR = GetModuleBaseAddress(proc, "samp.dll")
                Dim distance = ReadDMALong(proc, sampADDR + &H21A0F8, Offsets:={&H3C5, &H27}, Level:=2, nsize:=4)
                Dim calutulauriu = ReadDMALong(proc, sampADDR + &H21A0F8, Offsets:={&H3C5, &H2F}, Level:=2, nsize:=4)
                If calutulauriu <> 513 Then
                    WriteDMALong(proc, sampADDR + &H21A0F8, Offsets:={&H3C5, &H27}, Value:=1112014848, Level:=2, nsize:=4)
                    WriteDMALong(proc, sampADDR + &H21A0F8, Offsets:={&H3C5, &H2F}, Value:=513, Level:=2, nsize:=4)
                    wallhack = "OFF"
                    Timer1.Stop()

                End If


            Catch ex As Exception
            End Try
        End If
    End Sub