Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
- Timer1.Interval = 30 * 1000
- Me.ShowInTaskbar = False
- Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
- Me.Width = 0
- Me.Height = 0
- Timer1.Enabled = True
- End Sub
- Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
- Timer1.Enabled = False
- Me.WindowState = FormWindowState.Minimized
- Me.WindowState = FormWindowState.Maximized
- WebBrowser1.Width = Screen.PrimaryScreen.Bounds.Width
- WebBrowser1.Height = Screen.PrimaryScreen.Bounds.Height
- WebBrowser1.Navigate("http://jupiter.kamfjord-it.no/~wheelman/Saxguy/sexophone.swf")
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement