Visual Basic

Dim dt As DateTime = DateTime.Now()
Console.WriteLine("Current Date: " & dt.ToString("dd/MM/yyyy"))

Dim myForm As New Form1
myForm.Show()

Imports System.Reflection
Module Module1
  Friend Function GetFormUsingGetType(ByVal formName As String) As Form
    Dim myAssembly As [Assembly] = [Assembly].GetExecutingAssembly
    Dim myForm As Form
    Dim myFormName As String
    Dim myType As Type
    Dim myAssemblyNameObj As AssemblyName = myAssembly.GetExecutingAssembly.GetName
    Dim myAssemblyName As String

    myAssemblyName = myAssemblyNameObj.Name
    myType = myAssembly.GetType(myAssemblyName & "." & formName, True, True)
    myFormName = myType.FullName
    myForm = CType(myAssembly.CreateInstance(myFormName), Form)
    Return myForm
  End Function

  Friend Function GetFormUsingActivator(ByVal formName As String) As Form
    Dim myForm As Form
    Dim myFormName As String
    Dim myAssemblyNameObj As AssemblyName = [Assembly].GetExecutingAssembly.GetName
    Dim myAssemblyName As String
    Dim obj As System.Runtime.Remoting.ObjectHandle

    myAssemblyName = myAssemblyNameObj.Name
    myFormName = myAssemblyName & "." & formName
    obj = Activator.CreateInstance(myAssemblyName, myFormName)
    myForm = CType(obj.Unwrap, Form)
    Return myForm
  End Function
End Module

UltraCoder wrote:

And a lot easier than networking!

keninfo wrote:

Or do i have to make something like a method which creates an array while developing and make an instance of it at runtime to rename it finally?

Dim myArray() As String