Flooder MSN.VB con formas XD + Binarios y Source

Wenas! hace poco puso Volks su flooder para el msn , aqui viene el mio, lo puse tmb en su hilo pero lo saco además aqui afuera en un post principal.
Código:
Private Sub Command1_Click() //distinto tipo de flood 
If Text1.Text = "" Then
MsgBox "Complete los datos.", vbOKOnly, "Error."
Else
If Text2.Text = "" Then
MsgBox ("Complete los datos")
Else
Form1.WindowState = 1
For x = 1 To Text2.Text
SendKeys Text1.Text & "{enter}"
Next x
End If
End If
End Sub

Private Sub Command2_Click() //distinto tipo de flood
If Text1.Text = "" Then
MsgBox "Complete los datos.", vbOKOnly, "Error."
Else
If Text2.Text = "" Then
MsgBox ("Complete los datos")
Else
Form1.WindowState = 1
For x = 1 To Text2.Text
SendKeys Text1.Text & "{enter}"
SendKeys " " & Text1.Text & "{enter}"
SendKeys "  " & Text1.Text & "{enter}"
SendKeys "   " & Text1.Text & "{enter}"
SendKeys "    " & Text1.Text & "{enter}"
SendKeys "     " & Text1.Text & "{enter}"
SendKeys "      " & Text1.Text & "{enter}"
SendKeys "      " & Text1.Text & "{enter}"
SendKeys "      " & Text1.Text & "{enter}"
SendKeys "     " & Text1.Text & "{enter}"
SendKeys "    " & Text1.Text & "{enter}"
SendKeys "   " & Text1.Text & "{enter}"
SendKeys "  " & Text1.Text & "{enter}"
SendKeys " " & Text1.Text & "{enter}"
SendKeys Text1.Text & "{enter}"
SendKeys Text1.Text & "{enter}"
Next x
End If
End If

End Sub

Private Sub Command3_Click() //distinto tipo de flood
If Text1.Text = "" Then
MsgBox "Complete los datos.", vbOKOnly, "Error."
Else
If Text2.Text = "" Then
MsgBox ("Complete los datos")
Else
Form1.WindowState = 1
For x = 1 To Text2.Text
SendKeys Text1.Text & Text1.Text & Text1.Text & Text1.Text & Text1.Text & Text1.Text & "{enter}"
Next x
End If
End If

End Sub

Private Sub Command4_Click() //distinto tipo de flood
If Text1.Text = "" Then
MsgBox "Complete los datos.", vbOKOnly, "Error."
Else
If Text2.Text = "" Then
MsgBox ("Complete los datos")
Else
Form1.WindowState = 1
For x = 1 To Text2.Text
SendKeys Text1.Text & "{enter}"
SendKeys "    " & Text1.Text & "{enter}"
SendKeys "        " & Text1.Text & "{enter}"
SendKeys "            " & Text1.Text & "{enter}"
SendKeys "        " & Text1.Text & "{enter}"
SendKeys "    " & Text1.Text & "{enter}"
SendKeys Text1.Text & "{enter}"
Next x
End If
End If

End Sub

Private Sub Command5_Click()  //distinto tipo de flood
If Text1.Text = "" Then
MsgBox "Complete los datos.", vbOKOnly, "Error."
Else
If Text2.Text = "" Then
MsgBox ("Complete los datos")
Else
Form1.WindowState = 1
For x = 1 To Text2.Text
SendKeys Text1.Text & "{enter}"
SendKeys " " & Text1.Text & "{enter}"
SendKeys "   " & Text1.Text & "{enter}"
SendKeys "     " & Text1.Text & "{enter}"
SendKeys "       " & Text1.Text & "{enter}"
SendKeys "         " & Text1.Text & "{enter}"
SendKeys "           " & Text1.Text & "{enter}"
Next x
End If
End If

End Sub

Private Sub Command6_Click()
End
End Sub
Una imagen;
La descarga: Con binarios y sources.
http://rapidshare.com/files/9260349/flooder.zip.html