Visual Basic

System.ArgumentNullException was unhandled
  Message=Value cannot be null.
Parameter name: type
  ParamName=type
  Source=mscorlib

ITCObject = Activator.CreateInstance(ITC)

Imports System.IO
Imports System.Reflection
Imports System.Threading

Public Class Main

    Private Sub btnBrowse_Click(ByVal sender As System.Object, e As System.EventArgs) Handles btnBrowse.Click
        OpenFileDialog.ShowDialog()
        tbFile.Text = OpenFileDialog.FileName
    End Sub

    Private Sub btnUpload_Click(ByVal sender As System.Object, e As System.EventArgs) Handles btnUpload.Click
        Dim thisFile As FileInfo = New FileInfo(tbFile.Text)
        Dim ITC As Type
        Dim parameter() As Object = New Object(1) {}
        Dim ITCObject As Object
        ITC = Type.GetTypeFromProgID("InetCtls.Inet")
        ITCObject = Activator.CreateInstance(ITC)
        parameter(0) = CType(tbRemoteServer.Text, String)
        parameter(1) = CType("PUT " + thisFile.FullName + " /" + thisFile.Name, String)
        ITC.InvokeMember("execute", BindingFlags.InvokeMethod, Nothing, ITCObject, parameter)
    End Sub
End Class

If SelectFont.ShowDialog = Windows.Forms.DialogResult.OK Then

            EditingArea.Font.Name = SelectFont.Font.Name
            EditingArea.Font.Size = SelectFont.Font.Size

        End If