Mana.vb

Module Mana
    Public Sub CheckMana()
        Dim _myBytes(3) As Byte
        ReadProcessMemory(_targetProcessHandle, addr_Mana, _myBytes, 4, vbNull)
        Dim Mana_Points = BitConverter.ToInt32(_myBytes, 0).ToString
        Bot.txtMana.Text = "MANA: " + Mana_Points

        If Mana_Points > CInt(Bot.txtManaForSpell.Text) Then
            If getBusy = False And getManaTrain = True Then
                Try
                    getBusy = True
                    AppActivate(_targetProcess.Id)
                    My.Computer.Keyboard.SendKeys(Bot.txtSpell.Text, True)
                    My.Computer.Keyboard.SendKeys("{ENTER}", True)
                    getBusy = False
                Catch ex As Exception
                    getBusy = False
                End Try
            End If
        End If
    End Sub
End Module