Private Sub tlbVerktyg_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles tlbVerktyg.MouseMove

If e.X > tbbNew.Rectangle.X And e.X < tbbNew.Rectangle.X + tbbNew.Rectangle.Width And e.Y > tbbNew.Rectangle.Y And e.Y < tbbNew.Rectangle.Y + tbbNew.Rectangle.Height Then

’musen över nytt knappen

ElseIf e.X > tbbOpen.Rectangle.X And e.X < tbbOpen.Rectangle.X + tbbOpen.Rectangle.Width And e.Y > tbbOpen.Rectangle.Y And e.Y < tbbOpen.Rectangle.Y + tbbOpen.Rectangle.Height Then

’musen över öppna knappen

ElseIf e.X > tbbSave.Rectangle.X And e.X < tbbSave.Rectangle.X + tbbSave.Rectangle.Width And e.Y > tbbSave.Rectangle.Y And e.Y < tbbSave.Rectangle.Y + tbbSave.Rectangle.Height Then

’musen över sparaknappen

Else
’musen på toolbaren men utanför någon knapp
End If
End Sub