Text box width/bring to front and Checkbox

[SorenIX]

I thought this could be interesting :

Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Command4.Width = 7 * 567
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Command4.Width = 3 * 567
End Sub

It works, but not correctly.

EDIT :

This one is really glitchy but it does what I want it to do :

Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Command4.Width = 7.1 * 567
Me.Command5.Width = 6.52 * 567
Me.Command6.Width = 6.52 * 567
Me.Options.Width = 6.52 * 567
End Sub

Private Sub Command5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Command4.Width = 6.52 * 567
Me.Command5.Width = 7.1 * 567
Me.Command6.Width = 6.52 * 567
Me.Options.Width = 6.52 * 567
End Sub

Private Sub Command6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Command4.Width = 6.52 * 567
Me.Command5.Width = 6.52 * 567
Me.Command6.Width = 7.1 * 567
Me.Options.Width = 6.52 * 567
End Sub

Private Sub Options_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Command4.Width = 6.52 * 567
Me.Command5.Width = 6.52 * 567
Me.Command6.Width = 6.52 * 567
Me.Options.Width = 7.1 * 567
End Sub

Private Sub OLEUnbound13_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Command4.Width = 6.52 * 567
Me.Command5.Width = 6.52 * 567
Me.Command6.Width = 6.52 * 567
Me.Options.Width = 6.52 * 567
End Sub

I will upload the form.

[SorenIX]

I solved the MouseMove Event problem!

Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.Command4.Width < 7.1 * 567 Then
   Me.Command4.Width = 7.1 * 567
End If
End Sub

Private Sub Command5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.Command5.Width < 7.1 * 567 Then
   Me.Command5.Width = 7.1 * 567
End If
End Sub

Private Sub Command6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.Command6.Width < 7.1 * 567 Then
   Me.Command6.Width = 7.1 * 567
End If
End Sub

Private Sub Options_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.Options.Width < 7.1 * 567 Then
   Me.Options.Width = 7.1 * 567
End If
End Sub

Private Sub MenuBackground_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.Command4.Width > 7.1 * 567 Then
   Me.Command4.Width = 6.52 * 567
End If
If Me.Command5.Width > 7.1 * 567 Then
   Me.Command5.Width = 6.52 * 567
End If
If Me.Command6.Width > 7.1 * 567 Then
   Me.Command6.Width = 6.52 * 567
End If
If Me.Options.Width > 7.1 * 567 Then
   Me.Options.Width = 6.52 * 567
End If
End Sub

Hope it will be useful for someone else!