| por qué no haces una función, y la llamas en los botones que la necesites?. Como parámetro le pasas el valor que quieras validar, y listo. Yo hice esta , por ejemplo, para validar la extensión de un archivo. Suerte!!!
Private Function ComprobarExtensionML(extension As String) As Boolean
If Trim$(Right$(comExaminar.FileName, 3)) <> "xml" Then
ComprobarExtensionML = False
Else
ComprobarExtensionML = True
End If
End Function |