Visual Basic - Como se Utiliza el ctToolBar

Por favor, si me puedo ayudar a utilizar el ctToolBar, ya lo tengo el programa que estoy realizando y lo quiero llamar con un case pero no hace absolutamente nada

Private Sub tlbRTF_Click(ByVal Button As Button)
Select Case Button.Key
Case "AbrirArchivo"
' Llama a una función definida por el usuario
' para abrir un archivo.
OpenFile
Case "Negrita"
' Llama a una función definida por el usuario
' para poner el texto en negrita.
BoldText
Case Else
' Otros casos.
End Select
End Sub

Private Sub tlbRTF_Click(ByVal Button As Button)
Select Case Button.Key
Case "AbrirArchivo"
' Llama a una función definida por el usuario
' para abrir un archivo.
OpenFile
Case "Negrita"
' Llama a una función definida por el usuario
' para poner el texto en negrita.
BoldText
Case Else
' Otros casos.
End Select
End Sub