Private Sub cmdSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSubmit.Click
If txtPost.Text <> "" Then
If txtUsername.Text <> "" Then
ShoutBox.AddPost(frmMain.txtLid.Text, txtPost.Text, )
txtPost.Text = ""
Else
End If
Else
MsgBox("Please fill in a post.", MsgBoxStyle.Information)
End If
End Sub