[GUIA]Nuevos comandos [vb2008]

Anghios

**Hoy estoy de racha, asi que os voy a dejar unos comandos que no son esenciales pero le dan un mejor toque de profesionalidad a la apariencia del programa.
Creamos un nuevo proyecto.
Agregamos 1 botón y 1 label.
Algo así:

Bien, damos click en el Form1 (donde haya algo en blanco, osea fuera de donde los botones y eso.)
Ahí escribimos esto.

Dim myPhrase As String
        myPhrase = Microsoft.VisualBasic.InputBox("Introduce tu NickName")
        Label1.Text = Trim(myPhrase)

Hacemos doble click en el botón y agregáis lo siguiente:

[code] Dim testMsg As Integer
        testMsg = MsgBox("Mensage de texto", vbYesNo + vbCritical, "¿Desea salir?")

        If testMsg = 6 Then
            Close()
        ElseIf testMsg = 7 Then

    
        End If[/code]

El programa debería quedar algo así:

Bien, el primer paso que hagamos al abrir el programa te pedirá tu nick, que será substituido lo que pongas por el Label1 que habéis puesto en el form1
Yo en este caso voy a poner Anghios:

Veis? es substituido por el label1.

Ahora damos click a salir.

Nos pedirá si Si o si No.
El simbolo se puede cambiar.
Por ejemplo:

     Dim testMsg As Integer
        testMsg = MsgBox("Mensage de texto", vbYesNo + vbInformation, "¿Desea salir?")

        If testMsg = 6 Then
            Close()
        ElseIf testMsg = 7 Then

    
        End If

Ahí les saldrá el simbolito de información.
vbCritical ->
vbQuestion ->
vbExclamation ->
vbInformation - >
**