Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
'Wolftu yu degistermeyi unutma!!!
'interval ini 1 yapabilirsin istersen timer ın
Dim game As Process() = Process.GetProcessesByName("wolftü.bin")
On Error Resume Next
If GetAsyncKeyState(Keys.Insert) = -32767 Then
If d3d.Visible = False Then
d3d.Visible = True
SuspendProcess(game(0))
Me.Show()
Exit Sub
End If
If d3d.Visible = True Then
d3d.Visible = False
ResumeProcess(game(0))
Me.Hide()
Exit Sub
End If
End If