ok, this is what i've got from what you've told me, but it will need tweaking.
Uses a button called Sendbtn and a textbox called SendTxtBox
Imports LEGOVPBrickLib
Public Class Form1
Const MyPort As Integer = 1 'change this to your usb port
Private Sub SendBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendBtn.Click
Static LegoThing As LEGOVPBrickLib.VPBrick
Try
LegoThing.Open(MyPort.ToString)
LegoThing.Download(SendTxtBox.Text)
Catch ex As Exception
MsgBox("Error: " & ex.Message, MsgBoxStyle.Critical, "An error has occured.")
End Try
End Sub
End Class