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()
    'Using Channels object Add Method you can add multiple channels.
    wodSSHTunnel1.Channels.Add LocalListen, "127.0.0.1", 5001, "0.0.0.0", 5001
    wodSSHTunnel1.Channels.Add LocalListen, "127.0.0.1", 5002, "0.0.0.0", 5002
    wodSSHTunnel1.Channels.Add LocalListen, "127.0.0.1", 5003, "0.0.0.0", 5003
        
    wodSSHTunnel1.Channels.Add RemoteListen, "127.0.0.1", 1001, "0.0.0.0", 1001
    wodSSHTunnel1.Channels.Add RemoteListen, "127.0.0.1", 1002, "0.0.0.0", 1002
    
    wodSSHTunnel1.Channels.StartAll 'Start all 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
    'Using Channels object Add Method you can add multiple channels.
    wodSSHTunnel1.Channels.Add(wodSSHTunnelCOMLib.ForwardTypesEnum.LocalListen, "127.0.0.1", 5001, "0.0.0.0", 5001)
    wodSSHTunnel1.Channels.Add(wodSSHTunnelCOMLib.ForwardTypesEnum.LocalListen, "127.0.0.1", 5002, "0.0.0.0", 5002)
    wodSSHTunnel1.Channels.Add(wodSSHTunnelCOMLib.ForwardTypesEnum.LocalListen, "127.0.0.1", 5003, "0.0.0.0", 5003)

    wodSSHTunnel1.Channels.Add(wodSSHTunnelCOMLib.ForwardTypesEnum.RemoteListen, "127.0.0.1", 1001, "0.0.0.0", 1001)
    wodSSHTunnel1.Channels.Add(wodSSHTunnelCOMLib.ForwardTypesEnum.RemoteListen, "127.0.0.1", 1002, "0.0.0.0", 1002)

    wodSSHTunnel1.Channels.StartAll() 'Start all 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()
{
    //Using Channels object Add Method you can add multiple channels.
    wodSSHTunnel1.Channels.Add(wodSSHTunnelCOMLib.ForwardTypesEnum.LocalListen, "127.0.0.1", 5001, "0.0.0.0", 5001);
    wodSSHTunnel1.Channels.Add(wodSSHTunnelCOMLib.ForwardTypesEnum.LocalListen, "127.0.0.1", 5002, "0.0.0.0", 5002);
    wodSSHTunnel1.Channels.Add(wodSSHTunnelCOMLib.ForwardTypesEnum.LocalListen, "127.0.0.1", 5003, "0.0.0.0", 5003);

    wodSSHTunnel1.Channels.Add(wodSSHTunnelCOMLib.ForwardTypesEnum.RemoteListen, "127.0.0.1", 1001, "0.0.0.0", 1001);
    wodSSHTunnel1.Channels.Add(wodSSHTunnelCOMLib.ForwardTypesEnum.RemoteListen, "127.0.0.1", 1002, "0.0.0.0", 1002);

    wodSSHTunnel1.Channels.StartAll(); //Start all channels
}

//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);
}