Pesquisar na Comunidade

Boa tarde a todos! Gostaria de saber se no VB.NET tem como fazer como no VB6 eu fazia, segue código exemplo: Private Sub tbrCliente_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case Is = "Gravar" menGravar_Click Case Is = "Limpar" menLimpar_Click Case Is = "Excluir" menExcluir_Click Case Is = "Pesquisa" menPesquisa_Click Case Is = "Historico" menHistorico_Click Case Is = "Imprimir" menImprimir_Click Case Is = "Fechar" menFechar_Click End Select End Sub Obviamente que os caminhos mudaram para menImprimir.performclick, a quem puder ajudar-me agradeço! Obrigado!