set command16 caption to talk

Code:
Private Sub Command16_Click()
Select Case Command16.Caption
Case Is = "talk"
your code here for talking
Command16.Caption = "Stop"
Case Is = "Stop"
your code here stop talking
Command16.Caption = "talk"
End Select

End Sub