'Ein geeignetes Bild besorgen
   My.Computer.Network.DownloadFile _
      ("http://www.rothganger.de/bike/images/main/main.png", _
      "C:\daten\TTTPic.png")
   ttt_bmp = New Bitmap("C:\daten\tttpic.png")
 
   'Tooltip einrichten
   ttt.OwnerDraw = True
   ttt.SetToolTip(<Control>, "")

    Private Sub ttt_Popup(sender As Object, _
        e As System.Windows.Forms.PopupEventArgs) Handles ttt.Popup
 
        If ttt_bmp Is Nothing Then
            e.Cancel = True 'Abbruch, falls kein Bild ´geladen wurde
        Else
            'Breite des Tooltips festlegen
            Dim w As Integer = Math.Max(e.AssociatedControl.Width, 150)
 
            'Höhe des Tooltips an Seitenverhältnis des Bildes anpassen
            Dim h As Integer = ttt_bmp.Height * w \ ttt_bmp.Width
 
            e.ToolTipSize = New Size(w, h)
        End If
    End Sub
 
 
    Private Sub ttt_Draw(sender As Object, _
        e As System.Windows.Forms.DrawToolTipEventArgs) Handles ttt.Draw
 
        'Bild formatfüllend zeichnen
        e.Graphics.DrawImage(ttt_bmp, e.Bounds)
 
        'Rahmen um das Bild zeichnen
        e.DrawBorder()
    End Sub