Included in the code.

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) CurrentX = X CurrentY = Y If Button = 2 Then Frame1.Left = CurrentX Frame1.Top = CurrentY Frame1.Visible = True ElseIf Button = 1 Then Frame1.Visible = False End If End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Command1.BackColor = &H8000000F 'Me.Command1.ForeColor = &H80000012 Command3.BackColor = &H8000000F 'COMMAND3.ForeColor = &H80000012 Command2.BackColor = &H8000000F 'Command2.ForeColor = &H80000012 Command4.BackColor = &H8000000F 'Command4.ForeColor = &H80000012 End Sub Private Sub COMMAND1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command2.BackColor = &H8000000F 'Command2.ForeColor = &H80000012 Command3.BackColor = &H8000000F 'Command3.ForeColor = &H80000012 Command4.BackColor = &H8000000F 'Command4.ForeColor = &H80000012 Command1.BackColor = &HC00000 'Command1.ForeColor = &HFFFFFF Me.BalloonTipDemo1.ShowTip Me.BalloonTipDemo1.TipColor = RGB(100, 150, 250) Me.BalloonTipDemo1.TipText = "CLICK HERE TO SELECT MENU1" Me.BalloonTipDemo1.TitleText = "SELECT MENU ITEM" End Sub Private Sub COMMAND2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command1.BackColor = &H8000000F 'Command1.ForeColor = &H80000012 Command3.BackColor = &H8000000F 'Command3.ForeColor = &H80000012 Command4.BackColor = &H8000000F 'Command4.ForeColor = &H80000012 Command2.BackColor = &HC00000 'Command2.ForeColor = &HFFFFFF Me.BalloonTipDemo1.ShowTip Me.BalloonTipDemo1.TipColor = RGB(100, 150, 250) Me.BalloonTipDemo1.TipText = "CLICK HERE TO SELECT MENU2" Me.BalloonTipDemo1.TitleText = "SELECT MENU ITEM" End Sub Private Sub COMMAND3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command1.BackColor = &H8000000F 'Command1.ForeColor = &H80000012 Command2.BackColor = &H8000000F 'Command2.ForeColor = &H80000012 Command4.BackColor = &H8000000F 'Command4.ForeColor = &H80000012 Command3.BackColor = &HC00000 'Command3.ForeColor = &HFFFFFF Me.BalloonTipDemo1.ShowTip Me.BalloonTipDemo1.TipColor = RGB(100, 150, 250) Me.BalloonTipDemo1.TipText = "CLICK HERE TO SELECT MENU3" Me.BalloonTipDemo1.TitleText = "SELECT MENU ITEM" End Sub Private Sub COMMAND4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command1.BackColor = &H8000000F 'Command1.ForeColor = &H80000012 Command3.BackColor = &H8000000F 'Command3.ForeColor = &H80000012 Command2.BackColor = &H8000000F 'Command2.ForeColor = &H80000012 Command4.BackColor = &HC00000 'Command4.ForeColor = &HFFFFFF Me.BalloonTipDemo1.ShowTip Me.BalloonTipDemo1.TipColor = RGB(100, 150, 250) Me.BalloonTipDemo1.TipText = "CLICK HERE TO SELECT MENU4" Me.BalloonTipDemo1.TitleText = "SELECT MENU ITEM" End Sub 'make sure all the controls are taken in the form. 'Please reply how you like our service 'Please reply to monty_cb@sify.com