Hey Thank you, for reply. - This did not sound good.... Maybe out there someone had the idea to make such a player. I will look further for informations. Thank you!

Hey Thanks for taking the time, and take a look to the code. I will try to change the code, like you told me. - I will answer my progress. THX

Hey I have two big problems with my project. I will post the whole code down under my question What you will need to reproduce this code is a UserControl, on this usercontrol has to be a PictureBox and a Label The problems are: 1) The mouseLeave Event is fired, even if I don't leave the usercontrol 2) After finishing the Animation, the picture box pops up to full size. Maybe somone can help me? Here ist the code (VB2005) Imports System.ComponentModel Imports System.Reflection Imports System.Threading Public Class ISHilfe #Region "Properties des Eigenschaftsfensters" Dim _Bild As Image < _ Description("Bild für Animation"), _ Category("Misc")> _ Public Property Bild() As Image Get Return (_Bild) End Get Set(ByVal value As Image) Try _Bild = value pctBox.Image = value pctBox.SizeMode = PictureBoxSizeMode.StretchImage Catch End Try End Set End Property Dim _Labeltext As String < _ Description("Text des Hilfelabels mit Mini Markup"), _ Category("Misc")> _ Public Property LabelText() As String Get Return _Labeltext End Get Set(ByVal value As String) _Labeltext = value End Set End Property #End Region Dim pctAusblenden As New ThreadStart(AddressOf pctBoxVerkleinern) Dim pctEinblenden As New ThreadStart(AddressOf pctBoxVergrößern) Dim lblAusblenden As New ThreadStart(AddressOf lblVerkleinern) Dim lblEinblenden As New ThreadStart(AddressOf lblVergrößern) Dim pctFadeOut As New Thread(pctAusblenden) Dim pctFadeIn As New Thread(pctEinblenden) Dim lblFadeOut As New Thread(lblAusblenden) Dim lblFadeIn As New Thread(lblEinblenden) Private Sub ISHilfe_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load _ControlLabel = Me.lblInfo _ControlPctBox = Me.pctBox End Sub Private Sub ISHilfe_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter lblOriginalSchrift = lblInfo.ForeColor If pctFadeIn.ThreadState = ThreadState.Running Then pctFadeIn.Abort() End If If lblFadeOut.ThreadState = ThreadState.Running Then lblFadeOut.Abort() End If pctFadeOut.Start() lblFadeIn.Start() End Sub Private Sub ISHilfe_MouseLea

Hey NG I am looking for a Video Player, which can play different types of Video Format. For example: mpg, vob, divx, Flash, PowerPoint and so on. Does anybody know, where I can get something like that, or how to make such a player? I am using VB2005 Yours faithfully - THX

Hey OK & when "we" don't control, if there are pupils or not. Do you know, where I can find some tuts? THX!!

Hey Thanks for the fast answer. 1) - This 3 points are no problem. But 1) How Do I get the two pupils? - So that I I can't take a foto of a bottle or something? 2) How can I take the outermost points of the frame automatic, so that the user only has to insert the value for this points? Is there any sample, where I can take a look (Written in VB?) THX

Hey NG I want to mease some points of an foto from a digital camera, like you can see http://www.prisma-computer.de/optik/software/augenoptik/foto-pupillometer.html[^] here. Does anyone know, how to do things like that? - Is there anywhere a tut? - I do work in VB2005 THX!

I have a project, where I print my invoice with code like this: With Printer .PaperSize = Papier: .ScaleMode = 6: .Orientation = Ausricht .CurrentY = RandOben .FontSize = 10 If UCase(frmAdressverwaltung.txtNName.Text) = "BARVERKAUF" Then Zeile = "" For i = 1 To 6 Printer.Print Zeile Next i Else If frmAdressverwaltung.optAnredeF.Value = True Then Zeile = "Frau" ElseIf frmAdressverwaltung.optAnredeH.Value = True Then Zeile = "Herr" ElseIf frmAdressverwaltung.optAnredeK.Value = True Then Zeile = "" ElseIf frmAdressverwaltung.optAnredeC.Value = True Then Zeile = "Firma" End If Zeile = Zeile & " " & frmAdressverwaltung.txtTitel.Text .CurrentX = Randlinks Printer.Print Zeile .FontBold = True .CurrentX = Randlinks Zeile = frmAdressverwaltung.txtNName.Text & " " & frmAdressverwaltung.txtVName.Text Printer.Print Zeile .FontBold = False Zeile = frmAdressverwaltung.txtStrasse.Text .CurrentX = Randlinks Printer.Print Zeile Printer.Print "" Zeile = frmAdressverwaltung.txtPLZ & " " & frmAdressverwaltung.txtOrt.Text .CurrentX = Randlinks Printer.Print Zeile Printer.Print "" End If The code goes over 100 lines in this way. - So I don't want to change the code. - Now I want to print also the logo and some text on tho the invoice It is a bmp File with the logo & text & the rest ist transparency - I tried to this with the following code: If GetSetting("VOPTNeu", "Firmendaten", "ReLogo") = "True" Then .PaintPicture LoadPicture(App.Path & "\rechnungslogo.bmp"), 2, 3, 130, 35 .CurrentY = 52 .CurrentX = Randlinks End If But this wan't work. Please help - Hope you understand what I mean. Yours faithfully