Загрузка файла на сервер - Visual Basic .NET - Ответ 3246905

Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
    OpenFileDialog1.InitialDirectory = "C:\\"
    OpenFileDialog1.Filter = "Изображение 64x32 (*.png)|*.png" 'MessageBox.Show("Загрузка скинов находится в разработке", "Ошибка")
    OpenFileDialog1.FilterIndex = 1
    OpenFileDialog1.RestoreDirectory = True
    If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
        Dim fi As New FileInfo(OpenFileDialog1.FileName)
        Dim s As Long = fi.Length'размер файла в байтах
        Dim img As New Bitmap(OpenFileDialog1.FileName)
        Dim w As Single = img.PhysicalDimension.Width'ширина изображения
        Dim h As Single = img.PhysicalDimension.Height'высота изображения
        If s < 100 And w < 64 And h < 32 Then'свои числа поставьте
            My.Computer.Network.UploadFile(OpenFileDialog1.FileName.ToString(), "ftp://@31.170.164.103/public_html/cabinet/thiscraftServer/MinecraftSkins/" & Form1.TextBox1.Text & ".png", "u776270899", "Rfvtcbnq1")
            PictureBox4.ImageLocation = ("http://thiscraft.tk/cabinet/skin.php?user_name=" & Form1.TextBox1.Text & "&mode=1")
            PictureBox5.ImageLocation = ("http://thiscraft.tk/cabinet/skin.php?user_name=" & Form1.TextBox1.Text & "&mode=2")
        End If
    End If
 
    MessageBox.Show("Ура! Скин успешно загружен!", "Внимание!")
End Sub