Imports MySql.Data.MySqlClient
Imports System.Diagnostics
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Private Declare Function GetDesktopWindow Lib "user32" () As Long
 
    Private Declare Function ShellExecute Lib "shell32.dll" Alias _
      "ShellExecuteA" _
        (ByVal hwnd As Long, _
        ByVal lpszOp As String, _
        ByVal lpszFile As String, _
        ByVal lpszParams As String, _
        ByVal lpszdir As String, _
        ByVal FsShowCmd As Long) _
    As Long
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim hwnd As Long = GetDesktopWindow()
 
        MsgBox(hwnd)
 
        ShellExecute(hwnd, "Open", "C:/plink.exe", "-ssh -l user -pw password" & _
          "-L 3306:localhost:3306 -batch www.seite.de", "c:\", 0)
 
        Dim conn As MySqlConnection
        Dim ConString As String = "Server=127.0.0.1; Port=3306; Database=xxx;" & _
          "Uid=xxx; Pwd=xxx"
 
        conn = New MySqlConnection(ConString)
 
        Try
            conn.Open()
            MessageBox.Show("Connection Opened Successfully")
            conn.Close()
        Catch myerror As MySqlException
            MessageBox.Show("Error Connecting to Database: " & myerror.Message)
        Finally
            conn.Dispose()
        End Try
    End Sub
End Class