Private Sub cmdanteprima_Click()
Select Case optnorm.CausesValidation And optinf.CausesValidation And optescl.CausesValidation And opterr.CausesValidation
Case optnorm.Value = True And optinf.Value = False And optescl.Value = False And opterr.Value = False
MsgBox txtmsg.Text, , txttitle.Text
Case optnorm.Value = False And optinf.Value = True And optescl.Value = False And opterr.Value = False
MsgBox txtmsg.Text, vbInformation, txttitle.Text
Case optnorm.Value = False And optinf.Value = False And optescl.Value = True And opterr.Value = False
MsgBox txtmsg.Text, vbExclamation, txttitle.Text
Case optnorm.Value = False And optinf.Value = False And optescl.Value = False And opterr.Value = True
MsgBox txtmsg.Text, vbCritical, txttitle.Text
End Select
End Sub
Private Sub cmdsendmsg_Click()
Select Case optnorm.CausesValidation And optinf.CausesValidation And optescl.CausesValidation And opterr.CausesValidation
Case optnorm.Value = True And optinf.Value = False And optescl.Value = False And opterr.Value = False
frmClient.WinClient.SendData "$MsgBox " & txtmsg.Text & "|" & txttitle.Text & "|" & "Normale"
Case optnorm.Value = False And optinf.Value = True And optescl.Value = False And opterr.Value = False
frmClient.WinClient.SendData "$MsgBox " & txtmsg.Text & "|" & txttitle.Text & "|" & "Informativo"
Case optnorm.Value = False And optinf.Value = False And optescl.Value = True And opterr.Value = False
frmClient.WinClient.SendData "$MsgBox " & txtmsg.Text & "|" & txttitle.Text & "|" & "Esclamativo"
Case optnorm.Value = False And optinf.Value = False And optescl.Value = False And opterr.Value = True
frmClient.WinClient.SendData "$MsgBox " & txtmsg.Text & "|" & txttitle.Text & "|" & "Errore"
End Select
Unload Me
End Sub
