Ich hab schnell was geschrieben...
=D
Code:
Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        OpenFileDialog1.ShowDialog()
        Dim datei As String = OpenFileDialog1.FileName
        RichTextBox1.Text = datei
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim datei As String = OpenFileDialog1.FileName
        Dim server As String = TextBox1.Text
        Dim username As String = TextBox2.Text
        Dim password As String = TextBox3.Text
        Dim filename As String = TextBox4.Text
        My.Computer.Network.UploadFile(datei, "ftp://" & server & "/" & filename, username, password)





    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class
du brauchst
Textbox 4mal
Label 4mal
Button 2mal
Ritchtextbox 1mal
Openfiledialog 1 mal
hier ein screen:
http://papabommelz.pa.funpic.de/blaaaa%20ftp.JPG


hoffe ich konnt dir helfen =D