If sender.text = "aaa" Then
forms("窗口1").Show
ElseIf sender.text = "bbb" Then
msgbox("abc")
ElseIf sender.text = "ccc" Then
msgbox(123)
End If