Sí, esto sirve también para hacer muchos efectos..

Como yo que hice un programa que te hace creer que se te baja un juego de la pagina de Windows pero enrealidad se te apaga la PC.

Obviamente no es tan simple.. luego mostraré fotos o algo.

PERO NO LIBERARÉ EL CÓDIGO !! XD

Yo quiero decir si pueden crear un cliente a parte que contenga hacks para este juego..

El juego en sí, pero hackeado.

Bueno gente les quiero mostrar algunas cosas sobre el Height y el Width.

TUTORIAL 100% POR MÍ.

Height & Width se refieren al TAMAÑO que tiene el form.

Si nosotros creamos un proyecto nuevo, y vamos a la parte de los códigos, en el código del Form (Form_Load) podemos poner el siguiente código para el cambio del Height y el Width que vienen predeterminados al crear un Proyecto (300, 300).

Bueno creamos un button y de codigo le ponemos:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Height = 450
        Me.Width = 450
    End Sub

Cuando nosotros depuremos el programa y toquemos el botón, veremos que el tamaño de nuestro form cambiará, de 300 x 300 a 450 x 450.

Pues bien, hay otra forma de poder modificar el Height y el Width (H&W) de la siguiente manera:

Utilizando un TIMER, de esta manera el H y el W se modificarán, pero en recorrido constante, de manera que depende del intervalo que pongamos al timer que creemos, la velocidad que recorra el tamaño hasta llegar a un punto determinado será diferente. En este caso crearemos un timer y le pondremos de intervalo 1 y lo dejaremos Enabled False.


En el Button1 ponemos de código:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

Y ahora vamos al Timer y de código le ponemos:

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Height = Me.Height + 1
        Me.Width = Me.Width + 1
        If Me.Height <= 0 Then Me.Close()
    End Sub

Ahora lo depuran y luego me cuentan cómo les fue 

Adiós ![/b]

Es muy simple..

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF9 Then
    Call Command1 'Aqui tambien puedes poner el codigo para que el timer se encienda (Timer1.Start) y que el timer tenga el codigo deseado.
    Else
Call Command2 'O sino Timer1.Stop
 End If
 
Private Sub Form1_Load()
Me.KeyPreview = True
End Sub

Solucionado?

Espero que te sirva 

Otra manera de hacerlo sería:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF9 Then
Call Command1 'O sino el Timer1.Start
End If
 
If KeyCode = vbKeyF8 Then
Call Command2 'O sino Timer1.Stop
End If

Ojalá te funcione