Dim altkey As Boolean
Dim Num_1 As Boolean
Dim Num_2 As Boolean
Dim Num_3 As Boolean
Private Sub tmr_Keys_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr_Keys.Tick
altkey = GetAsyncKeyState(Keys.LMenu)
Num_1 = GetAsyncKeyState(Keys.NumPad1)
Num_2 = GetAsyncKeyState(Keys.NumPad2)
Num_3 = GetAsyncKeyState(Keys.NumPad3)
If altkey And Num_1 = True Then 'Infinite Health Player 1
btn_P1InfiniteHealth_Click(sender, e)
ElseIf altkey And Num_2 = True Then
btn_P1InfiniteKi_Click(sender, e) ' Infinite Ki Player 1
ElseIf altkey And Num_3 = True Then
End If
End Sub
Copyright © 2024, NextGenUpdate.
All Rights Reserved.