Semplice routine….

Private Sub Comando1_Click()
'sub for checking son status

Dim pediatra_answer As String
pediatra_answer = InputBox(" che ha detto il pediatra ?", " rispondi prego")

'Sub controllo()

If pediatra_answer = "sano" Then
GoTo vai_scuola Else
GoTo stai_casa
End If

vai_scuola:
MsgBox " adesso basta, sei guarito, domani vai a scuola", vbInformation + vbOKOnly
Exit Sub
stai_casa:
MsgBox "mannaggia a giove!!! devi stare a casa ancora", vbCritical + vbOKOnly

End Sub

Grazie a Rio.

Annunci

Rispondi

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...

%d blogger hanno fatto clic su Mi Piace per questo: