Hello everyone, I have a quick question. I am trying to make a navigation menu at the bottom of my form that will have rollover buttons. I have written the following code so far, but I am having a bit of trouble. The trouble is when I mouse over the first button, it changes to the right image. However when I move the mouse further to the right, the second one changes to the right image and the first one stays on the second image, and doesn't turn back to the first image. It's like vb6 is missing a rollover command. I have tried a few things but was unable to get anything to work. Please and thanks for all advice and help given.
Code:Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Image1 = LoadPicture(App.Path & "\components\nav\ebbtcbinsmenu1_0.bmp") Image2 = LoadPicture(App.Path & "\components\nav\ebbtcbinsmenu2_0.bmp") End Sub Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Image1 = LoadPicture(App.Path & "\components\nav\ebbtcbinsmenu1_1.bmp") End Sub Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Image2 = LoadPicture(App.Path & "\components\nav\ebbtcbinsmenu2_1.bmp") End Sub




Reply With Quote