Multimedia BarTools

[klonoa]

Hi! Do you want a bar with a status bar of office???
Use my BarTools Dll. With two easy operation you can transform the normal form Vb in a application bar Tool:


Option Explicit
Dim mX As New BarTools.CBar
Private Sub Form_Load()
mX.InitializeCBar frmExample
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
mX.MoveCBar X, Y
End Sub

'if you want a animation bar insert the timer on the form and set the interval timer = 1.

Private Sub Timer1_Timer()
mX.Anim_Bar
End Sub

The bar conteined two boolean property for hook the screen .

Private Sub Form_Resize()
If mX.DockLeft_or_DockRight Then
MsgBox "Hook!!!"
End If

If mX.DockUp_or_DockDown Then
MsgBox "Hook Up down !!"
End If

End Sub

If a problem with use contact me.
Hi people!!!