Visual Basic

Public Sub mdlShow(accesstype As String,cmd As String)
 return=checking()
 if return<>0 then 
   Dim frm As New FormMain
   frm.Show vbModal
 end if
 End Sub
 in form

Bastard Programmer from Hell

Imports RDPCOMAPILib
Imports System.Net.Sockets
Public Class Form1
    Dim x As New RDPSession
    Dim clientSocket As New System.Net.Sockets.TcpClient()
    Dim serverStream As NetworkStream
    Dim readData As String
    Dim infiniteCounter As Integer
    Dim a As String
    Dim b As String
    Dim drag As Boolean
    Dim mousex As Integer
    Dim mousey As Integer
    Private Sub Incoming(ByVal Guest As Object)
        Dim MyGuest As IRDPSRAPIAttendee = Guest
        MyGuest.ControlLevel = CTRL_LEVEL.CTRL_LEVEL_INTERACTIVE
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim strHostName As String

        strHostName = System.Net.Dns.GetHostName()
        a = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString()
        b = 'Username

        readData = "Conected to Chat Server ..."
        clientSocket.Connect("IP ADDRESS", 8888)
        'Label1.Text = "Client Socket Program - Server Connected ..."
        serverStream = clientSocket.GetStream()

        Dim outStream As Byte() = _
        System.Text.Encoding.ASCII.GetBytes(b + "$")
        serverStream.Write(outStream, 0, outStream.Length)
        serverStream.Flush()
        AddHandler x.OnAttendeeConnected, AddressOf Incoming
        x.Open()
        Dim Invitation As IRDPSRAPIInvitation = x.Invitations.CreateInvitation("Trial", "MyGroup", "", 10)
        outStream = System.Text.Encoding.ASCII.GetBytes("V" + "$")
        serverStream.Write(outStream, 0, outStream.Length)
        outStream = System.Text.Encoding.ASCII.GetBytes("V" + Invitation.ConnectionString + "$")
        serverStream.Write(outStream, 0, outStream.Length)
    End Sub
End Class

Imports System.Net.Sockets

Public Class Form1
    Dim clientSocket As New System.Net.Sockets.TcpClient()
    Dim serverStream As NetworkStream
    Dim readData As String
    Dim infiniteCounter As Integer
    Dim a As String
    Dim b As String
    Dim drag As Boolean
    Dim mousex As Integer
    Dim mousey As Integer
    Dim Invitation
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.TopMost = True
        TextBox1.Text = Invitation
        If TextBox1.Text.StartsWith("USERNAME says : V") Then
            TextBox1.Text = TextBox1.Text.Remove(0, 12)
        ElseIf TextBox1.Text.StartsWith("USERNAME says : V") Then
            TextBox1.Text = TextBox1.Text.Remove(0, 13)
        End If
        AxRDPViewer1.Connect(TextBox1.Text, "User1", "")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        AxRDPViewer1.Disconnect()
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Form2.Visible = True
        Form2.TopMost = True
        Dim strHostName As String
        strHostName = System.Net.Dns.GetHostName()
        a = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString()
       b = 'Username

        readData = "Conected to Chat Server ..."
        msg()
        clientSocket.Connect("IP ADDRESS", 8888)
        'Label1.Text = "Client Socket Program - Server Connected ..."
        serverStream = clientSocket.GetStream()

        Dim outStream As Byte() = _
        System.Text.Encoding.ASCII.GetBytes(b + "$")
        serverStream.Write(outStream, 0, outStream.Length)
        serverStream.Flush()

        Dim ctThread As Threading.Thread = New Threading.Thread(AddressOf getMessage)
        ctThread.Start()
    End Sub

    Private Sub msg()
        If Me.InvokeRequired Then
            Me.Invoke(New MethodInvoker(AddressOf msg))
        Else
            invitation = readData
        End If
    End Sub
    Private Sub getMessage()
        For infiniteCounter = 1 To 2
            infiniteCounter = 1
            serverStream = clientSocket.GetStream()
            Dim buffSize As Integer
            Dim inStream(10024) As Byte
            buffSize = clientSocket.ReceiveBufferSize
            serverStream.Read(inStream, 0, buffSize)
            Dim returndata As String = _
            System.Text.Encoding.ASCII.GetString(inStream)
            readData = "" + returndata
            msg()
        Next
    End Sub
End Class