programa

Para cerrar una ventana ejemplo
Salir

Sub Button_click()
'----**** MyBusiness POS Generated
'----**** Date: 01-08-2013
'----**** Time: 23:56:19
'----**** User: SUP
Select CaseControlEvento.Tag
Case "cmdSalir"
DescargaForma ' es para cerrar
End Select

End Sub

Cierra y envía un mensaje
Sub Button_click()
'----**** MyBusiness POS Generated'----**** Date: 01-08-2013
'----**** Time: 23:56:19
'----**** User: SUP
Select Case ControlEvento.Tag
Case "cmdSalir"
DescargaForma 'es para cerrar
Case "cmdAceptar"MyMessage "exelente Rodolfo" 'aparece mensaje
End Select

End Sub


Abre un cuadro con mensaje pequeño
Sub Button_click()
'----**** MyBusiness POS Generated
'----**** Date:01-08-2013
'----**** Time: 23:56:19
'----**** User: SUP
Select Case ControlEvento.Tag
Case "cmdSalir"
DescargaForma 'es para cerrar
Case "cmdAceptar"
msgbox"exelente Rodolfo" 'aparece mensaje
End Select

End Sub



Doble mensaje
Sub Button_click()
'----**** MyBusiness POS Generated
'----**** Date: 01-08-2013
'----**** Time: 23:56:19'----**** User: SUP
Select Case ControlEvento.Tag
Case "cmdSalir"
DescargaForma 'es para cerrar
Case "cmdAceptar"
MyMessage ("primer aviso")
msgbox"exelente Rodolfo" 'aparece mensaje

End Select

End Sub


Para escribir texto abajo del renglón

Sub Button_click()
'----**** MyBusiness POS Generated
'----****Date: 18-07-2013
'----**** Time: 11:32:46
'----**** User: SUP
Select Case ControlEvento.Tag
Case "cmdSalir"
DescargaForma ' cierra
Case "cmdAceptar"MyMessage ("Muy bien hecho " & txtNombre & _
" sigue asi")
MyMessage("Muy bien hecho" & vbCrLF & txtNombre & _
vbCrLf & "sigue asi")...