Dim tp As New TabPage("User Management")
        Dim f2 As New fmUserManagement
        f2.TopLevel = False ' REQUIRED
        f2.FormBorderStyle = Windows.Forms.FormBorderStyle.None ' optional
        f2.Dock = DockStyle.Fill ' optional
        tp.Controls.Add(f2)

string dirname ( string $path )

                       <?php
                        // current directory
                        echo getcwd() . "\n";
                       ?>

        $filename    = (isset($_POST['filename']))    ? $_POST['filename']    : '' ;
        $filename    = $filename.=".txt";

$filename    = (isset($_POST['filename']))    ? $_POST['filename']    : '' ;

//Load filename from URL
if (isset($_GET['page']) && (file_exists($_GET['page'].'.txt'))) //If the

Imports System.Data.OleDb


Public Class

Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\database.accdb")

Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\database.accdb")

  Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\database.accdb")
        Dim cmd As New OleDbCommand("SELECT COUNT(*) FROM [users] WHERE Fname = @Fname AND Lname = @Lname AND Password = @Password", conn)

Public Class Class1
    Public Sub RegCheck()
        Dim readValue As String
         readValue = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\MySoft", "SomeKey", Nothing)
    End Sub

End Cla

        Dim STR As Array
        'Dim str(6) As String

        STR = File.ReadAllLines(Application.StartupPath & "\login\details\" & Login.CboServicePerson.Text & ".pas") ' & (STR(1) & CboText & ".pas"))
        Form1.txtUser.Text = STR(1) 'textline