Visual Basic Pobieranie po starcie aplikacji.

[kripciak]

Witam.

Usiłuję napisać patcher do gry.

I mój problem jest następujący:

Chcę by pobieranie pliku uruchamiało się od razu

po włączeniu programu. Mam taki kod:

Imports System.Net
Imports System.ComponentModel

Public Class Form1

    Public WithEvents download As New WebClient
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click


        If My.Computer.Network.IsAvailable Then
            Button1.Enabled = False
            My.Computer.FileSystem.CreateDirectory("/.minecraft/bin/")
            ProgressBar1.Visible = True


            download.DownloadFileAsync(New Uri("http://www.strona.pl/plik.txt"), "/apka/plik.txt")
        
        Else
            MsgBox("Brak dostępu do Internetu")
        End If

    End Sub

    Private Sub download_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles download.DownloadProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
        Dim totalbytes As Long = e.TotalBytesToReceive / 1024
        Dim mtotalbytes As Long = totalbytes / 1024
        Dim bytes As Long = e.BytesReceived / 1024
        Dim mbytes As Long = bytes / 1024
        If totalbytes < 1 Then totalbytes = 1
        If bytes < 1 Then bytes = 1
        If totalbytes > 1024 Then
            Label1.Text = mbytes.ToString & " MB z " & mtotalbytes.ToString & " MB"
        Else
            Label1.Text = bytes.ToString & " KB z " & totalbytes.ToString & " KB"
        End If
    End Sub

    Private Sub download_DownloadFileCompleted(ByVal sender As Object, ByVal e As AsyncCompletedEventArgs) Handles download.DownloadFileCompleted
        Label1.Visible = False
        ProgressBar1.Visible = False
        Button1.Enabled = True
        MsgBox("Pobieranie plików przebiegło pomyślnie")
    End Sub

End Class

Oczywiście wiem że trzeba wywalić Button1.

Tylko jak zrobić by kod wywoływałsie po starcie aplikacji ? 

Dzięki za pomoc

[Crossiik]

http://scr.hu/31ss/cg0zu

http://scr.hu/31ss/2mnah

 

[kripciak]

@Crossiik

Dzięki podziałało ale mam jeszcze taki problem:

 

Mam taki kod :

Imports System.Net
Imports System.ComponentModel

Public Class Form1
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim download As New WebClient

        If My.Computer.Network.IsAvailable Then
            My.Computer.FileSystem.CreateDirectory("/.minecraft/bin/")
            ProgressBar1.Visible = True
            download.DownloadFileAsync(New Uri("http://s3.amazonaws.com/MinecraftDownload/lwjgl_util.jar"), "/.minecraft/bin/lwjgl_util.jar")
        Else
            MsgBox("Brak dostępu do Internetu")
        End If

    End Sub

    Private Sub download_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles download.DownloadProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
        Dim totalbytes As Long = e.TotalBytesToReceive / 1024
        Dim mtotalbytes As Long = totalbytes / 1024
        Dim bytes As Long = e.BytesReceived / 1024
        Dim mbytes As Long = bytes / 1024
        If totalbytes < 1 Then totalbytes = 1
        If bytes < 1 Then bytes = 1
        If totalbytes > 1024 Then
            Label1.Text = mbytes.ToString & " MB z " & mtotalbytes.ToString & " MB"
        Else
            Label1.Text = bytes.ToString & " KB z " & totalbytes.ToString & " KB"
        End If
    End Sub

    Private Sub download_DownloadFileCompleted(ByVal sender As Object, ByVal e As AsyncCompletedEventArgs) Handles download.DownloadFileCompleted
        Label1.Visible = False
        ProgressBar1.Visible = False
        MsgBox("Pobieranie plików przebiegło pomyślnie")
    End Sub

End Class

I wywala mi błąd: 

 Handles clause requires a WithEvents variable defined in the containing type or one of its base types

Co z tym zrobić ? 

Szukałem w necie i znalazłem coś takiego :

https://msdn.microsoft.com/en-us/library/32787dt6.aspx

Tylko nie wiem jak to wykorzystać... 

[BremLOL]

Dim WithEvents download As New WebClient

 

[kripciak]

@BremLOL

Nie działa:

 

 

[BremLOL]

­Brawo, daj to po 

Public Class Form1

Będzie działać