Apr 18, 2013 03:11 PM
(This post was last modified: Apr 19, 2013 02:53 AM by barukoru.)
[img]http://img688.imageshack.us/img688/1897/popupd.jpg[/img]
Timer1 Enabled = True
Download source: http://www.mediafire.com/?mdqc2969q45je1k
Virus scan: https://www.virustotal.com/pl/file/4c649...366322969/
PHP Code
<?php
Public Class Form1
Dim intX As Integer = Screen.PrimaryScreen.Bounds.Width
Dim intY As Integer = Screen.PrimaryScreen.Bounds.Height
Dim nowy As Integer = 0
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Static i As Integer = 10
If i <= 210 Then
Me.Location = New Point(intX - 220, nowy)
nowy -= 10
i += 10
Me.Refresh()
Else
Timer1.Stop()
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Height = 262
Me.Width = 145
Me.Location = New Point(intX - 220, intY - 30)
nowy = intY - 102
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("Credit to BaruKoru", MsgBoxStyle.Information, "Credit")
Process.Start("https://hackforums.net/member.php?action=profile&uid=1749534")
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
Close()
End Sub
Private Sub PictureBox1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox1.Click
End Sub
End Class
Timer1 Enabled = True
Download source: http://www.mediafire.com/?mdqc2969q45je1k
Virus scan: https://www.virustotal.com/pl/file/4c649...366322969/


