Access 2013 VBA for drop-down list box on mouseover.

[akisch007]

My forms: NewClient, NewMaterial
I want to create a drop-down list box so that when the user mouseover the combobox, the list for forms is dropped and when the user click on the NewClient, the form is opened. Just as a website.
Any help ??

[jonh]

Private Sub Combo0_Click()
Select Case True
Case Combo0.Value = "---Select---"
Case Else
DoCmd.OpenForm Combo0.Value, acNormal
Combo0.Value = "---Select---"
End Select
End Sub

Private Sub Combo0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Combo0.Dropdown
End Sub

Private Sub Combo0_NotInList(NewData As String, Response As Integer)
Response = 0
End Sub

Private Sub Form_Load()
Combo0.RowSource = ""
Combo0.RowSourceType = "value list"
Combo0.LimitToList = True

Combo0.AddItem "---Select---"
Combo0.AddItem "NewClient"
Combo0.AddItem "NewMaterial"

Combo0.Value = "---Select---"
End Sub

[akisch007]

Thx