Exclamation icon in MsgBox

[EZLI]

Hi,
Please help how to show in MsgBox the exclamation icon.

Private Sub Form_Current()
If Len(A) <> 0 Then
aa = CLng(A)
If aa >= 20 Then
Msg = &quot;abc!&quot;
Style = vbOKOnly + 48
Title = &quot;Attention&quot;
MsgBox Msg, Stile, Title

End If
End If
End Sub

Thank's in advance,
Niks

 

[petrosky]

Hi EZLI,

Try vbExclamation instead of vbOKOnly

Regards,

Peter Remember- It's nice to be important,
but it's important to be nice

 

[petrosky]

Hi again,

Also...I have had to remove the &quot;+ 48&quot; from the line

Style = vbOKOnly


Peter Remember- It's nice to be important,
but it's important to be nice

 

[EZLI]

Thank you Peter for help. It's working.
Niks