How to make pop-up window for you aplication 05-12-2013, 12:25 PM
#1
![[Image: fomfccb.jpg]](http://img541.imageshack.us/img541/9129/fomfccb.jpg)
Code:
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("http://www.hackcommunity.com/User-barukoru")
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 Classwirus scan
![[Image: txkbshg.jpg]](http://img560.imageshack.us/img560/4231/txkbshg.jpg)
Source download: http://www.mediafire.com/?7s1b77xb5d3tmcw
![[+]](https://sinister.ly/images/modern/collapse_collapsed.png)
![[Image: OilyCostlyEwe.gif]](http://fat.gfycat.com/OilyCostlyEwe.gif)
Good use of the Static keyword in VB.net too. Not sure what I would do differently, other than make this a bit more manipulable by creating functions or a full class that could encapsulate this functionality. But, with parameters so that less of the values are hardcoded.
