Custom Msg Box

[wisefire]

Allright, Im trying to make a custom msgbox, The basic one is ugly as, well you know.

So I made a form, Added a lable and a button, Wahoo. Now, the sub;

Code:

Public Sub MsgBox(Msg As String)
          frmMsgBox.Visible = True
          Msg = frmMsgBox.MsgLabel.Caption
End Sub

So basicly, this is called,

Code:

Call MsgBox("Bound Item ; This Item may not be dropped nor traded.")

The Box will pop up, set the label and you can click ok to close it.

Yet. It dosn't work Someone wanna let me know why?