Uses wodSSHTunnel ActiveX component

Dim WithEvents wodSSHTunnel1 As wodTunnelCom
Private Sub Form_Load()
    Set wodSSHTunnel1 = New wodTunnelCom

    'Authenticate with SSH server using hostname, login, password.
    wodSSHTunnel1.HostName = "your_hostname"
    wodSSHTunnel1.Login = "your_login"
    wodSSHTunnel1.Password = "your_password"
    wodSSHTunnel1.Connect
End Sub

'Connected Event fires when wodSSHTunnel connects to a remote server.
Private Sub wodSSHTunnel1_Connected()
    'If a new channel is defined as RemoteListen, then SSH server will bind RemoteAddress on RemotePort (Note: RemoteAddress
    'as seen from the SSH server's end!!). When a new connection comes to the selected RemotePort, the SSH server will send
    'a notification to wodSSHTunnel, which will initiate a new connection towards the LocalAddress interface on LocalPort.
    'In this example we will forward port 5900. This is VNC server port. On remote server where your SSH server is you can open VNC connection using 127.0.0.1 (localhost) and port 5900.
    'You will be using encrypted connection instead insecure Internet connection.
    wodSSHTunnel1.Channels.Add RemoteListen, "127.0.0.1", 5900, "0.0.0.0", 5900
    wodSSHTunnel1.Channels.StartAll 'Start channels
End Sub

'Disconnected Event fires when wodSSHTunnel disconnects from the server.
Private Sub wodSSHTunnel1_Disconnected(ByVal ErrorCode As Integer, ByVal ErrorText As String)
    If ErrorCode <> 0 Then
        MsgBox "DISCONNECTED: " & ErrorText 'Connection error is received here
    End If
End Sub

'ChannelStop Event fires when a specific channel has stopped.
Private Sub wodSSHTunnel1_ChannelStop(ByVal Chan As wodSSHTunnelCOMLib.IChannel, ByVal ErrorCode As Integer, ByVal ErrorText As String)
    Debug.Print "Channel stop " & ErrorText 'Channel error is received here
End Sub

'UserConnected Event fires when a user connects to the listening channel.
Private Sub wodSSHTunnel1_UserConnected(ByVal Chan As wodSSHTunnelCOMLib.IChannel, ByVal User As wodSSHTunnelCOMLib.IUser, ByVal ErrorCode As Integer, ByVal ErrorText As String)
    Debug.Print "User from " & User.HostName & " connected"
End Sub

'UserDisconnected Event fires when a user disconnects from a channel.
Private Sub wodSSHTunnel1_UserDisconnected(ByVal Chan As wodSSHTunnelCOMLib.IChannel, ByVal User As wodSSHTunnelCOMLib.IUser, ByVal ErrorCode As Integer, ByVal ErrorText As String)
    Debug.Print "User from " & User.HostName & " left " & ErrorText
End Sub

Uses wodSSHTunnel ActiveX component

Dim WithEvents wodSSHTunnel1 As wodSSHTunnelCOMLib.wodTunnelCom
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    wodSSHTunnel1 = New wodSSHTunnelCOMLib.wodTunnelCom

    'Authenticate with SSH server using hostname, login, password.
    wodSSHTunnel1.Hostname = "your_hostname"
    wodSSHTunnel1.Login = "your_login"
    wodSSHTunnel1.Password = "your_password"
    wodSSHTunnel1.Connect()
End Sub

'Connected Event fires when wodSSHTunnel connects to a remote server.
Private Sub wodSSHTunnel1_Connected() Handles wodSSHTunnel1.Connected
    'If a new channel is defined as RemoteListen, then SSH server will bind RemoteAddress on RemotePort (Note: RemoteAddress
    'as seen from the SSH server's end!!). When a new connection comes to the selected RemotePort, the SSH server will send
    'a notification to wodSSHTunnel, which will initiate a new connection towards the LocalAddress interface on LocalPort.
    'In this example we will forward port 5900. This is VNC server port. On remote server where your SSH server is you can open VNC connection using 127.0.0.1 (localhost) and port 5900.
    'You will be using encrypted connection instead insecure Internet connection.
    wodSSHTunnel1.Channels.Add(wodSSHTunnelCOMLib.ForwardTypesEnum.RemoteListen, "127.0.0.1", 5900, "0.0.0.0", 5900)
    wodSSHTunnel1.Channels.StartAll() 'Start channels
End Sub

'Disconnected Event fires when wodSSHTunnel disconnects from the server.
Private Sub wodSSHTunnel1_Disconnected(ByVal ErrorCode As Short, ByVal ErrorText As String) Handles wodSSHTunnel1.Disconnected
    If ErrorCode <> 0 Then
        MsgBox("DISCONNECTED: " & ErrorText) 'Connection error is received here
    End If
End Sub

'ChannelStop Event fires when a specific channel has stopped.
Private Sub wodSSHTunnel1_ChannelStop(ByVal Chan As wodSSHTunnelCOMLib.Channel, ByVal ErrorCode As Short, ByVal ErrorText As String) Handles wodSSHTunnel1.ChannelStop
    Console.WriteLine("Channel stop " & ErrorText) 'Channel error is received here
End Sub

'UserConnected Event fires when a user connects to the listening channel.
Private Sub wodSSHTunnel1_UserConnected(ByVal Chan As wodSSHTunnelCOMLib.Channel, ByVal User As wodSSHTunnelCOMLib.User, ByVal ErrorCode As Short, ByVal ErrorText As String) Handles wodSSHTunnel1.UserConnected
    Console.WriteLine("User from " & User.Hostname & " connected")
End Sub

'UserDisconnected Event fires when a user disconnects from a channel.
Private Sub wodSSHTunnel1_UserDisconnected(ByVal Chan As wodSSHTunnelCOMLib.Channel, ByVal User As wodSSHTunnelCOMLib.User, ByVal ErrorCode As Short, ByVal ErrorText As String) Handles wodSSHTunnel1.UserDisconnected
    Console.WriteLine("User from " & User.Hostname & " left " & ErrorText)
End Sub

Uses wodSSHTunnel ActiveX component

wodSSHTunnelCOMLib.wodTunnelCom wodSSHTunnel1;
private void Form1_Load(System.Object sender, System.EventArgs e)
{
    wodSSHTunnel1 = new wodSSHTunnelCOMLib.wodTunnelCom();
    wodSSHTunnel1.Connected += new wodSSHTunnelCOMLib._IwodTunnelComEvents_ConnectedEventHandler(wodSSHTunnel1_Connected);
    wodSSHTunnel1.Disconnected += new wodSSHTunnelCOMLib._IwodTunnelComEvents_DisconnectedEventHandler(wodSSHTunnel1_Disconnected);
    wodSSHTunnel1.ChannelStop += new wodSSHTunnelCOMLib._IwodTunnelComEvents_ChannelStopEventHandler(wodSSHTunnel1_ChannelStop);
    wodSSHTunnel1.UserConnected += new wodSSHTunnelCOMLib._IwodTunnelComEvents_UserConnectedEventHandler(wodSSHTunnel1_UserConnected);
    wodSSHTunnel1.UserDisconnected += new wodSSHTunnelCOMLib._IwodTunnelComEvents_UserDisconnectedEventHandler(wodSSHTunnel1_UserDisconnected);

    //Authenticate with SSH server using hostname, login, password.
    wodSSHTunnel1.Hostname = "your_hostname";
    wodSSHTunnel1.Login = "your_login";
    wodSSHTunnel1.Password = "your_password";
    wodSSHTunnel1.Connect(wodSSHTunnel1.Hostname, wodSSHTunnel1.Port, wodSSHTunnel1.Protocol);
}

//Connected Event fires when wodSSHTunnel connects to a remote server.
private void wodSSHTunnel1_Connected()
{
    //If a new channel is defined as RemoteListen, then SSH server will bind RemoteAddress on RemotePort (Note: RemoteAddress
    //as seen from the SSH server's end!!). When a new connection comes to the selected RemotePort, the SSH server will send
    //a notification to wodSSHTunnel, which will initiate a new connection towards the LocalAddress interface on LocalPort.
    //In this example we will forward port 5900. This is VNC server port. On remote server where your SSH server is you can open VNC connection using 127.0.0.1 (localhost) and port 5900.
    //You will be using encrypted connection instead insecure Internet connection.
    wodSSHTunnel1.Channels.Add(wodSSHTunnelCOMLib.ForwardTypesEnum.RemoteListen, "127.0.0.1", 5900, "0.0.0.0", 5900);
    wodSSHTunnel1.Channels.StartAll();
}

//Disconnected Event fires when wodSSHTunnel disconnects from the server.
private void wodSSHTunnel1_Disconnected(short ErrorCode, string ErrorText)
{
    if (ErrorCode != 0)
    {
        MessageBox.Show("DISCONNECTED: " + ErrorText); //Connection error is received here
    }
}

private void wodSSHTunnel1_ChannelStop(wodSSHTunnelCOMLib.Channel Chan, short ErrorCode, string ErrorText)
{
    Console.WriteLine("Channel stop " + ErrorText); //Channel error is received here
}

//UserConnected Event fires when a user connects to the listening channel.
private void wodSSHTunnel1_UserConnected(wodSSHTunnelCOMLib.Channel Chan, wodSSHTunnelCOMLib.User User, short ErrorCode, string ErrorText)
{
    Console.WriteLine("User from " + User.Hostname + " connected");
}

//UserDisconnected Event fires when a user disconnects from a channel.
private void wodSSHTunnel1_UserDisconnected(wodSSHTunnelCOMLib.Channel Chan, wodSSHTunnelCOMLib.User User, short ErrorCode, string ErrorText)
{
    Console.WriteLine("User from " + User.Hostname + " left " + ErrorText);
}