Simple guild creating code

[85031]

im gonna teach to make a guild creation button!  :D
Made with Eclipse Evolution Source, thats why i used EE icon

Requirements:
1\. Microsoft Visual Basic 6.0.
2\. Knowledge of using copy and paste ( ctrl+c and ctrl+v)
3\. How to work simple commands and labels.

first go to the frmMirage, on the left it will have a ton of icons, click the bold black A. create a box somewhere with all of the other options on the frmMirage, and leave the name the same, it will be label21 or something like that. The only thing you need to change out of all the stuff in the bottom right is…

•Alignment
•appearance
•backcolor
•BackStyle
•BorderStyle
•Caption
•Font
•ForeColor

-go to Caption and put Guild Creator or something like that to let people know that it is for creating a guild. if you want a background for your button (just the square you made with the label tool) then go to BackStyle and put Opaque, if you want no background make it transparent. go to BorderStyle and choose if you want a border or no border. Then if you chose to have a background and/or border go to the top and go to Appearance and choose either Flat or 1 - 3D. Now scroll down a little bit and go to Font. You can Choose your Font type and style such as bold, italics, and bold & italics. After you are finished with that go to ForeColor and you can choose the color you want the Caption to be.

Now Double Click your newly created button that you just made and you will see the code of it come up. It will look something like this.

```
Private Sub Label21_Click()

End Sub
```
you wont have to choose a label because the right label will come up automatically. paste this between what i just showed you.

```
frmGuild.Visible = True
Me.Visible = True
```

then all the players have to do is type in their name and the wanted Guild name and they have it.

Note: There is no level requirement in this code, if you want one let me know and the level requirement you want and ill try to get one up for ya :)

well i hope this is kinda helpfull :)
Thanks to DFA he provided a code incase you want to have a level requirement :) Thanks again :)
If you want a level requirement put this…
```
If GetPlayerLevel(MyIndex) > 39 Then
        frmCreateGuild.Visible = True
        Else
        Me.Visible = True
frmGuild.Visible = False
MsgBox "You are not level 40"
    End If

```
instead of this…
```
frmGuild.Visible = True
Me.Visible = True
```
i had to play around with the messege part because there wasn't one given and it works perfectly!
if you have any questions i will do my best to answer them :)