Sub ShowMessage()
Static MsgVisible As Boolean

If MsgVisible Then Exit sub

MsgVisible = True

' show your msgbox

MsgVisible = False

End Sub


Well I don't know what this might be but it isn''t what I want. I will give you some of my code : It might be kinda messy but it's in beta :

Public Function ownmsgbox(message As String, title As String, cmdcancel As Boolean, cmdyes As Boolean, cmdno As Boolean, cmdok As Boolean, Optional pic As Byte = 0) As integer
Dim frm As New frmmsgbox
frm.Caption = title
frm.label1.caption=message

frm.value=-1
frm.cmdok.Visible = cmdok
frm.cmdcancel.Visible = cmdcancel
frm.cmdja.Visible = cmdyes
frm.cmdnee.Visible = cmdno
frm.show 1

Set ownmsgbox = frm.value
End Function