Does anyone have...

[Rian]

Code:

Private Sub cmdClose_Click()
    frmGuildCP.Visible = False
End Sub

Private Sub cmdDemote_Click()
If txtName.Text = "" Then
    Call MsgBox("You must first enter a playername to demote them.")
Else
    Call GuildDemotion(Trim(txtName.Text))
    txtName.Text = ""
End If
End Sub

Private Sub cmdInvite_Click()
If txtName.Text = "" Then
    Call MsgBox("You must first enter a playername to invite them.")
Else
    Call GuildRequest(Trim(txtName.Text))
    txtName.Text = ""
End If
End Sub

Private Sub cmdKick_Click()
If txtName.Text = "" Then
    Call MsgBox("You must first enter a playername to kick them from the guild.")
Else
    Call GuildRemoval(Trim(txtName.Text))
    txtName.Text = ""
End If
End Sub

Private Sub cmdPromote_Click()
If txtName.Text = "" Then
    Call MsgBox("You must first enter a playername to promote them.")
Else
    Call GuildPromotion(Trim(txtName.Text))
    txtName.Text = ""
End If
End Sub