Bir kod buldum ama ilgilenen arkadaşlara faydası olabilir mi bilmiyorum ve Microsoft terminal services control type library
mstscax.dll ekte var

Imports MSTSCLib

Public Class Form1
Private Sub ConnectToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConnectToolStripMenuItem.Click
If rdp.Connected.ToString() = "0" Then
Try
rdp.Server = ""
rdp.Domain = ""
rdp.UserName = ""
Dim secured As IMsTscNonScriptable = DirectCast(rdp.GetOcx(), IMsTscNonScriptable)
secured.ClearTextPassword = ""
rdp.Connect()
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Name, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End If
End Sub

Private Sub DisconnectToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DisconnectToolStripMenuItem.Click
If rdp.Connected.ToString() = "1" Then
rdp.Disconnect()
End If
End Sub
End Class