Informatica-prohibida: formulario

Efecto con botones visual basic 6.0

<center>
<script async="" src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>

<ins class="adsbygoogle" data-ad-client="ca-pub-6123383525339038" data-ad-slot="3276222169" style="display: inline-block; height: 280px; width: 336px;"></ins>
<script>
(adsbygoogle = window.adsbygoogle || []).push({});
</script>
<script async="" src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>

<ins class="adsbygoogle" data-ad-client="ca-pub-6123383525339038" data-ad-slot="4728944563" style="display: inline-block; height: 60px; width: 468px;"></ins>
<script>
(adsbygoogle = window.adsbygoogle || []).push({});
</script></center>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhkXgNjGYIgq2CX6Cn8FkDyC98lkI9Z4_hNZeDj5CXtte1grr0jlMTigtf1uf7dog3Xkf0Psd05xZQaZQs85j0tsLCSk6mpVGCeN1YU-2YYszrfqfLmssd6Qcn23YJj8-wKdDBD0-mNrnJp/s1600/avatar.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhkXgNjGYIgq2CX6Cn8FkDyC98lkI9Z4_hNZeDj5CXtte1grr0jlMTigtf1uf7dog3Xkf0Psd05xZQaZQs85j0tsLCSk6mpVGCeN1YU-2YYszrfqfLmssd6Qcn23YJj8-wKdDBD0-mNrnJp/s1600/avatar.jpg" /></a></div>
Este tutorial se va a basar en efectos con botones. 
Empecemos: 
Como primer paso elegimos o hacemos las imágenes que van a estar involucradas. 
En mi caso usare estas: pero ustedes pueden optar por usar cualquiera que os gusten o les llamen mas la atención este solo es un tutorial de formación y explicación para ayudar a darles ideas y o bien hacerlo tal y como yo lo hago o ustedes ponerle de su creatividad a si que manos a la obra en la siguiente imagen de abajo pueden ver los que utilizare yo a si que mucho bla bla bla y nada de acción ya saben cualquier duda dejen su comentario por muy tonta que sea me gusta ria ver un comentario en alguno de mis post bueno ya basta a comenzar el tuto 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh65q-yXDvPXe9gZfnfJCoKXc6xebxI4APlJxZsgv2GqMqn4qfiTxqgqlCqWFMvpuFrMU6WAB7DcCKsU08l9QYIuq1gb3b-heT94aD2Qm8h9Ob7ojrI4Pr-G-aLUu4cTESFQWu2WQpVRQoR/s1600/Screenshot_8.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="74" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh65q-yXDvPXe9gZfnfJCoKXc6xebxI4APlJxZsgv2GqMqn4qfiTxqgqlCqWFMvpuFrMU6WAB7DcCKsU08l9QYIuq1gb3b-heT94aD2Qm8h9Ob7ojrI4Pr-G-aLUu4cTESFQWu2WQpVRQoR/s1600/Screenshot_8.png" width="320" /></a></div>
Una con el borde blanco para el botón común. 
Una con el borde rojo para cuando posicionamos el mouse sobre ella. 
Y una con el borde azul para cuando apretamos. 
 
Abrimos VB6 y generamos un nuevo proyecto. 
Y ponemos 3 image en el form. 
 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiLPnfAxUFDXtaJF4Rsqkl0zLhb98N2tqcOHTp1-83BbNpEvE7BFMCXDRcnWtyJhbmoxIM6ZZW5GBQRTnefvSlubg3Geg3rq7LvjIvbk1OCT2hA-mV4slPu1K6__r8-I67XfVYWY9pFMV2I/s1600/Screenshot_9.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiLPnfAxUFDXtaJF4Rsqkl0zLhb98N2tqcOHTp1-83BbNpEvE7BFMCXDRcnWtyJhbmoxIM6ZZW5GBQRTnefvSlubg3Geg3rq7LvjIvbk1OCT2hA-mV4slPu1K6__r8-I67XfVYWY9pFMV2I/s1600/Screenshot_9.png" /></a></div>
<div class="separator" style="clear: both; text-align: left;">
Y a cada una en la propiedad picture elegimos una de las imágenes.</div>
<div class="separator" style="clear: both; text-align: left;">
Quedándonos así:</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiNSH0qXhDKjg0T2iZYq_bCxhwrx2wDGovsfWNI78mMIunuTn0H3Ps0JkQ1L8t-wXDd2bnM0Mai4R2yGfpNlLbfNaAGJv78p_Za_IZlnYkk4Ne8kSsocbv4CEYomWoeKRfza3Pou2PA3PFj/s1600/Screenshot_10.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="244" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiNSH0qXhDKjg0T2iZYq_bCxhwrx2wDGovsfWNI78mMIunuTn0H3Ps0JkQ1L8t-wXDd2bnM0Mai4R2yGfpNlLbfNaAGJv78p_Za_IZlnYkk4Ne8kSsocbv4CEYomWoeKRfza3Pou2PA3PFj/s1600/Screenshot_10.png" style="cursor: move;" width="320" /></a></div>
<div class="separator" style="clear: both;">
A la imagen del borde blanco la llame BotonComun, a la del borde rojo BotonSeleccionado y a la</div>
<div class="separator" style="clear: both;">
del borde azul BotonApretado.</div>
<div class="separator" style="clear: both;">
Posicionamos las tres imágenes una arriba de otra.</div>
<div class="separator" style="clear: both;">
Primero la imagen del BotonComun, luego la del BotonSeleccionado y por último la del</div>
<div class="separator" style="clear: both;">
BotonApretado.</div>
<div class="separator" style="clear: both;">
Quedando solo visible la imagen BotonApretado, como se ve abajo:</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhX8XGE_i6hbTFdIETxws0bAufvIhoP3uYxj7zOXoMmaOgaD4YcUJ0rfT5r6t3h1oEPz5xyqLD2Ek-y6ITfeHMp2aQ6zPrCsZL1-R106UdLmmBCHc0PuqClkk2bIMq_Zg3XR4BxpchcRNhQ/s1600/Screenshot_11.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="264" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhX8XGE_i6hbTFdIETxws0bAufvIhoP3uYxj7zOXoMmaOgaD4YcUJ0rfT5r6t3h1oEPz5xyqLD2Ek-y6ITfeHMp2aQ6zPrCsZL1-R106UdLmmBCHc0PuqClkk2bIMq_Zg3XR4BxpchcRNhQ/s1600/Screenshot_11.png" width="320" /></a></div>
<div class="separator" style="clear: both;">
Nota: A mí me gusta más hacer las cosas por código en vez de usar la tabla de propiedades del</div>
<div class="separator" style="clear: both;">
costado que te provee vb.</div>
<div class="separator" style="clear: both;">
Al evento Load del form le agregamos dos líneas, quedando así:</div>
<div class="separator" style="clear: both;">
-------------------</div>
<div class="separator" style="clear: both;">
Private Sub Form_Load()</div>
<div class="separator" style="clear: both;">
BotonSeleccionado.Visible = False</div>
<div class="separator" style="clear: both;">
-------------------</div>
<div class="separator" style="clear: both;">
BotonApretado.Visible = False</div>
<div class="separator" style="clear: both;">
End Sub</div>
<div class="separator" style="clear: both;">
-------------------</div>
<div class="separator" style="clear: both;">
Para que al ejecutar el programa solo se vea la imagen BotonComun.</div>
<div class="separator" style="clear: both;">
Ahora vamos a hacer que al posicionar el mouse sobre la imagen BotonComun nos muestre la</div>
<div class="separator" style="clear: both;">
imagen BotonSeleccionado.</div>
<div class="separator" style="clear: both;">
Para ello vamos a hacer uso del evento MouseMove de la imagen BotonComun.</div>
<div class="separator" style="clear: both;">
-------------</div>
<div class="separator" style="clear: both;">
Private Sub BotonComun_MouseMove(Button As Integer, Shift As Integer, X</div>
<div class="separator" style="clear: both;">
As Single, Y As Single)</div>
<div class="separator" style="clear: both;">
BotonSeleccionado.Visible = True</div>
<div class="separator" style="clear: both;">
End Sub</div>
<div class="separator" style="clear: both;">
------------</div>
<div class="separator" style="clear: both;">
Pero también tendremos que agregarle al evento MouseMove del form lo siguiente:</div>
<div class="separator" style="clear: both;">
-------------</div>
<div class="separator" style="clear: both;">
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As</div>
<div class="separator" style="clear: both;">
Single, Y As Single)</div>
<div class="separator" style="clear: both;">
BotonSeleccionado.Visible = False</div>
<div class="separator" style="clear: both;">
End Sub</div>
<div class="separator" style="clear: both;">
----------</div>
<div class="separator" style="clear: both;">
Esto es porque si no, una vez que uno posicione el mouse arriba de la imagen BotonApretado, la</div>
<div class="separator" style="clear: both;">
imagen BotonSeleccionado quedara siempre visible.</div>
<div class="separator" style="clear: both;">
Entonces lo que hace ese último código es que cuando posicionemos el mouse sobre el form la</div>
<div class="separator" style="clear: both;">
imagen BotonSeleccionado se oculte.</div>
<div class="separator" style="clear: both;">
Ahora vamos a agregar que al apretar se muestre la imagen BotonApretado por un momento muy</div>
<div class="separator" style="clear: both;">
pequeño.</div>
<div class="separator" style="clear: both;">
Para ello vamos a hacer uso del evento Click de la imagen BotonSeleccionado.</div>
<div class="separator" style="clear: both;">
-------------</div>
<div class="separator" style="clear: both;">
Private Sub BotonSeleccionado_Click()</div>
<div class="separator" style="clear: both;">
BotonApretado.Visible = True</div>
<div class="separator" style="clear: both;">
Dim j As Long</div>
<div class="separator" style="clear: both;">
For j = 0 To 100000</div>
<div class="separator" style="clear: both;">
DoEvents</div>
<div class="separator" style="clear: both;">
Next j</div>
<div class="separator" style="clear: both;">
BotonApretado.Visible = False</div>
<div class="separator" style="clear: both;">
End Sub</div>
<div class="separator" style="clear: both;">
-------------</div>
<div class="separator" style="clear: both;">
Lo que hacemos en ese código es que cuando hacemos click en la imagen Boton Seleccionado se</div>
<div class="separator" style="clear: both;">
muestre la imagen Boton Apretado, hacemos un bucle de 0 a 100000 para generar un retardo y</div>
<div class="separator" style="clear: both;">
luego ocultamos la imagen Boton Apretado.</div>
<div class="separator" style="clear: both;">
Para ese bucle podría utilizarse la función Sleep que nos provee vb pero tendríamos que también</div>
<div class="separator" style="clear: both;">
declarar el uso de un api.</div>
<div class="separator" style="clear: both;">
Y listo con eso ya tendríamos lo que queríamos hacer.</div>
<div class="separator" style="clear: both;">
Saludos y espero que les sirva.</div>
<div class="separator" style="clear: both;">
a qui una breve de como quedaría el trabajo ya terminado</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiNk9fPuiEFsbBVKzdSTIVhCtrDgZU1wSHUvh9spDTZ1nZxzu5y3yTIbi9wuJd4qsAWB1p7nF9m3_BqTbRx84F5fyWkns1sYeKBhYWEs1nk-vjlb02ewwViYe55_ESRCwlUHxLltFm7aEmW/s1600/no-mames.com.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="256" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiNk9fPuiEFsbBVKzdSTIVhCtrDgZU1wSHUvh9spDTZ1nZxzu5y3yTIbi9wuJd4qsAWB1p7nF9m3_BqTbRx84F5fyWkns1sYeKBhYWEs1nk-vjlb02ewwViYe55_ESRCwlUHxLltFm7aEmW/s1600/no-mames.com.gif" width="320" /></a></div>
<div class="separator" style="clear: both;">
<script async src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>

<ins class="adsbygoogle"
 style="display:inline-block;width:234px;height:60px"
 data-ad-client="ca-pub-6123383525339038"
 data-ad-slot="5218675366"></ins>
<script>
(adsbygoogle = window.adsbygoogle || []).push({});
</script></div>
<div class="separator" style="clear: both;">
<a href="http://informatica-proibida.blogspot.com/2014/04/efecto-combinado-para-los-forms-visual.html#" id="flotante" style="-webkit-text-stroke-width: 0px; background-color: white; background-image: url(http://informatica-proibida.blogspot.com/); background-position: 50% 50%; background-repeat: no-repeat no-repeat; clear: both; color: black; font-family: 'helvetica neue', arial, sans-serif; font-size: small; font-style: normal; font-variant: normal; font-weight: normal; height: 360px; letter-spacing: normal; line-height: 20.799999237060547px; margin-top: -365px; orphans: auto; position: relative; text-align: left; text-decoration: none; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; width: 640px; word-spacing: 0px;"></a></div>
<div id="aim21122286279642883794" style="-webkit-text-stroke-width: 0px; background-color: white; color: #333333; font-family: 'helvetica neue', arial, sans-serif; font-size: small; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 20.799999237060547px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;">
<div id="aim23327554375511170614" style="-webkit-text-stroke-width: 0px; background-color: white; color: #333333; font-family: 'helvetica neue', arial, sans-serif; font-size: small; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 20.799999237060547px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;">
cualquier duda que tengan comenten o deja un buen comentario en apoyo a mi trabajo 
No olviden visitar mi Web Oficial |<a href="http://no-mames.com/" style="background-color: white; color: #999999; font-family: Verdana, Geneva, sans-serif; font-size: 12px; line-height: 19.200000762939453px; text-decoration: none;">no-mames.com</a>| solo por apoyo ya que hay no hablo nada sobre programación hay es algo mas ligero y solo de pasatiempo así que espero tener su apoyo en mi humilde web y pues a un que sea me den un me gusta o algo a si bueno ya mucho bla bla bla  
Empezando con tutoriales super básicos apoyame con un me gusta si el post su de tu agrado</div>
<center><script async src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>

<ins class="adsbygoogle"
 style="display:inline-block;width:336px;height:280px"
 data-ad-client="ca-pub-6123383525339038"
 data-ad-slot="3276222169"></ins>
<script>
(adsbygoogle = window.adsbygoogle || []).push({});
</script></center>
</div>

Efecto con botones visual basic 6.0

Este tutorial se va a basar en efectos con botones. Empecemos: Como primer paso elegimos o hacemos las imágenes que van a estar...

Efecto Combinado para los Forms visual basic 6.0

<center>
<script async="" src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>

<ins class="adsbygoogle" data-ad-client="ca-pub-6123383525339038" data-ad-slot="3276222169" style="display: inline-block; height: 280px; width: 336px;"></ins>
<script>
(adsbygoogle = window.adsbygoogle || []).push({});
</script>
<script async="" src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>

<ins class="adsbygoogle" data-ad-client="ca-pub-6123383525339038" data-ad-slot="4728944563" style="display: inline-block; height: 60px; width: 468px;"></ins>
<script>
(adsbygoogle = window.adsbygoogle || []).push({});
</script></center>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj9Bjee6l_ThWEM971QPYY9Yb-3-hVKWtqYnn58aoW6Du_V6PMdNEY_3EjqjszW9IVE7yM1vJnWW2zuzaq2k3o0pRlEwJL210Hq_LToI0y1xJi3MECWn8m4O4xktlnkR8Iruka32IGOGkKI/s1600/avatar.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj9Bjee6l_ThWEM971QPYY9Yb-3-hVKWtqYnn58aoW6Du_V6PMdNEY_3EjqjszW9IVE7yM1vJnWW2zuzaq2k3o0pRlEwJL210Hq_LToI0y1xJi3MECWn8m4O4xktlnkR8Iruka32IGOGkKI/s1600/avatar.jpg" /></a></div>
Hola a todos. 
Empecemos 
Abrimos VB6, y creamos un nuevo proyecto. 
Voy a agregar 4 forms en total y 1 modulo. 
A los forms los voy a llamar: Arriba, Derecha, Izquierda y BotonCerrar. 
A los tres primeros le hice una Ventana Personalizada. 
Yo la hice así: miren la imagen de abajo y cualquier duda que tengan no olviden comentar para tratar de darles solución a su inquietud o fallo ok 
 
 
 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi1Q-6Km3vjOZZiEssyVIw0iAoUwLnZXt3r4zF0H03RyiLV-jU_EkXU6xaXoRLu0bDgFf5XeFciToBKC6QojFroGZe9yY25tMyPuEgDFMckNehFLy4jZJ3cyyGdN2d1vJHNUwuYRsRT1zSw/s1600/Screenshot_5.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi1Q-6Km3vjOZZiEssyVIw0iAoUwLnZXt3r4zF0H03RyiLV-jU_EkXU6xaXoRLu0bDgFf5XeFciToBKC6QojFroGZe9yY25tMyPuEgDFMckNehFLy4jZJ3cyyGdN2d1vJHNUwuYRsRT1zSw/s1600/Screenshot_5.png" /></a></div>
Le agrego un label a cada uno y le cambio el atributo Visible a false 
 
Al modulo le vamos a agregar la API para usar la función Sleep 
--------- 
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 
---------- 
Y un code para hacer transparencia de forms. Yo utilizo este. 
---------------- 
Option Explicit 
Private Declare Function SetLayeredWindowAttributes Lib "user32" _ 
(ByVal hWnd As Long, _ 
---------------------------------------------------------------------------------- 
ByVal crKey As Long, _ 
ByVal bAlpha As Byte, _ 
ByVal dwFlags As Long) As Long 
Private Declare Function GetWindowLong Lib "user32" Alias 
"GetWindowLongA" _ 
(ByVal hWnd As Long, _ 
ByVal nIndex As Long) As Long 
Private Declare Function SetWindowLong Lib "user32" Alias 
"SetWindowLongA" _ 
(ByVal hWnd As Long, _ 
ByVal nIndex As Long, _ 
ByVal dwNewLong As Long) As Long 
Private Const GWL_EXSTYLE = (-20) 
Private Const LWA_ALPHA = &H2 
Private Const WS_EX_LAYERED = &H80000 
Public Function Is_Transparent(ByVal hWnd As Long) As Boolean 
On Error Resume Next 
Dim Msg As Long 
Msg = GetWindowLong(hWnd, GWL_EXSTYLE) 
If (Msg And WS_EX_LAYERED) = WS_EX_LAYERED Then 
Is_Transparent = True 
Else 
Is_Transparent = False 
End If 
If Err Then 
Is_Transparent = False 
End If 
End Function 
Public Function Aplicar_Transparencia(ByVal hWnd As Long, Valor As 
Integer) As Long 
Dim Msg As Long 
On Error Resume Next 
If Valor < 0 Or Valor > 255 Then 
Aplicar_Transparencia = 1 
Else 
Msg = GetWindowLong(hWnd, GWL_EXSTYLE) 
Msg = Msg Or WS_EX_LAYERED 
SetWindowLong hWnd, GWL_EXSTYLE, Msg 
SetLayeredWindowAttributes hWnd, 0, Valor, LWA_ALPHA 
Aplicar_Transparencia = 0 
End If 
----------------------------- 
If Err Then 
Aplicar_Transparencia = 2 
End If 
End Function 
---------------------------- 
En el evento Load del form arriba ponemos este código: 
-------------------------------- 
Private Sub Form_Load() 
Move (Screen.Width - Width) \ 2, ((Screen.Height - Height) \ 2) - 
5000 
Derecha.Show 
Izquierda.Show 
BotonCerrar.Show 
Label1.Caption = "Arriba" 
Derecha.Label1.Caption = "Arriba" 
Izquierda.Label1.Caption = "Arriba" 
Call Aplicar_Transparencia(Me.hWnd, CByte(100)) 
Call Aplicar_Transparencia(Derecha.hWnd, CByte(100)) 
Call Aplicar_Transparencia(Izquierda.hWnd, CByte(100)) 
End Sub 
------------------------------- 
Posicionamos el form, muestro los demás, y en el atributo Caption de los 3 labels ponemos 
"Arriba" 
Este lo utilizamos para saber la posición en la que se encuentra el form. 
Y lo último que hacemos es ponerle una transparencia con el valor 100 a los tres forms. 
Ahora, vamos a usar la imagen que utilizaron como la barra de títulos del form. 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjv89RY-edULbjPvB0BLhfLSHPr9wMparcyGPDpLzLqzXryaxwHpO701aLGOZ6Wu5dCgkHqmmSzZvPFCogbofIkuo4oclsKdMAL1TxhNTKus-22YfjeItT9gpxeuCIdfK-6i8e8gnUr2ied/s1600/Screenshot_6.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjv89RY-edULbjPvB0BLhfLSHPr9wMparcyGPDpLzLqzXryaxwHpO701aLGOZ6Wu5dCgkHqmmSzZvPFCogbofIkuo4oclsKdMAL1TxhNTKus-22YfjeItT9gpxeuCIdfK-6i8e8gnUr2ied/s1600/Screenshot_6.png" /></a></div>
Vamos a usar el evento Click. 
------------------------------- 
Private Sub Superior_Click() 
If Label1.Caption = "Centro" Then Exit Sub 
If (Derecha.Label1.Caption = "Arriba") And (Izquierda.Label1.Caption 
= "Arriba") Then 
Do While Me.Top < (Screen.Height - Height) \ 2 
Me.Top = Me.Top + 1 
Sleep 0.6 
DoEvents 
Loop 
Call Aplicar_Transparencia(Me.hWnd, CByte(250)) 
Label1.Caption = "Centro" 
------------------------------------ 
End If 
If Derecha.Label1.Caption = "Centro" Then 
Do While Me.Top < (Screen.Height - Height) \ 2 
Me.Top = Me.Top + 1 
Derecha.Top = Derecha.Top - 1 
Derecha.Left = Derecha.Left + 1 
Sleep 0.6 
DoEvents 
Loop 
Call Aplicar_Transparencia(Me.hWnd, CByte(250)) 
Call Aplicar_Transparencia(Derecha.hWnd, CByte(100)) 
Label1.Caption = "Centro" 
Derecha.Label1.Caption = "Arriba" 
End If 
If Izquierda.Label1.Caption = "Centro" Then 
Do While Me.Top < (Screen.Height - Height) \ 2 
Me.Top = Me.Top + 1 
Izquierda.Top = Izquierda.Top - 1 
Izquierda.Left = Izquierda.Left - 1 
Sleep 0.6 
DoEvents 
Loop 
Call Aplicar_Transparencia(Me.hWnd, CByte(250)) 
Call Aplicar_Transparencia(Izquierda.hWnd, CByte(100)) 
Label1.Caption = "Centro" 
Izquierda.Label1.Caption = "Arriba" 
End If 
End Sub 
--------------------------------------- 
Esta parte lo que hace es ver como están los form posicionados y dependiendo de eso hace 
diferentes cosas. 
Si el mismo form tiene Label1.Caption = "Centro", no hace nada. 
Si nadie tiene Label1.Caption = "Centro", se mueve a si mismo hacia el centro de la pantalla. 
Si el form derecha tiene Label1.Caption = "Centro", lo mueve a su posición original, y mueve a si 
mismo al centro de la pantalla. 
Y si el form izquierda tiene Label1.Caption = "Centro", lo mueve a su posición original, y mueve a 
si mismo al centro de la pantalla. 
Cambiando transparencias y los caption de los labels según correspondan. 
Los códigos de los demás form son similares. 
Form Derecha 
--------------- 
Private Sub Form_Load() 
Move ((Screen.Width - Width) \ 2) + 5000, ((Screen.Height - Height) \ 
2) - 5000 
End Sub 
Private Sub Superior_Click() 
If Label1.Caption = "Centro" Then Exit Sub 
If (Arriba.Label1.Caption = "Arriba") And (Izquierda.Label1.Caption = 
"Arriba") Then 
---------------------------- 
Do While Me.Top < (Screen.Height - Height) \ 2 
Me.Top = Me.Top + 1 
Me.Left = Me.Left - 1 
Sleep 0.6 
DoEvents 
Loop 
Call Aplicar_Transparencia(Me.hWnd, CByte(250)) 
Label1.Caption = "Centro" 
End If 
If Arriba.Label1.Caption = "Centro" Then 
Do While Me.Top < (Screen.Height - Height) \ 2 
Me.Top = Me.Top + 1 
Me.Left = Me.Left - 1 
Arriba.Top = Arriba.Top - 1 
Sleep 0.6 
DoEvents 
Loop 
Call Aplicar_Transparencia(Me.hWnd, CByte(250)) 
Call Aplicar_Transparencia(Arriba.hWnd, CByte(100)) 
Label1.Caption = "Centro" 
Arriba.Label1.Caption = "Arriba" 
End If 
If Izquierda.Label1.Caption = "Centro" Then 
Do While Me.Top < (Screen.Height - Height) \ 2 
Me.Top = Me.Top + 1 
Me.Left = Me.Left - 1 
Izquierda.Top = Izquierda.Top - 1 
Izquierda.Left = Izquierda.Left - 1 
Sleep 0.6 
DoEvents 
Loop 
Call Aplicar_Transparencia(Me.hWnd, CByte(250)) 
Call Aplicar_Transparencia(Izquierda.hWnd, CByte(100)) 
Label1.Caption = "Centro" 
Izquierda.Label1.Caption = "Arriba" 
End If 
End Sub 
------------------------ 
Form Izquierda 
<script async src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>

<ins class="adsbygoogle"
 style="display:inline-block;width:234px;height:60px"
 data-ad-client="ca-pub-6123383525339038"
 data-ad-slot="5218675366"></ins>
<script>
(adsbygoogle = window.adsbygoogle || []).push({});
</script>
 
---------------------- 
Private Sub Form_Load() 
Move ((Screen.Width - Width) \ 2) - 5000, ((Screen.Height - Height) \ 
2) - 5000 
End Sub 
Private Sub Superior_Click() 
If Label1.Caption = "Centro" Then Exit Sub 
If (Arriba.Label1.Caption = "Arriba") And (Derecha.Label1.Caption = 
"Arriba") Then 
Do While Me.Top < (Screen.Height - Height) \ 2 
Me.Top = Me.Top + 1 
Me.Left = Me.Left + 1 
Sleep 0.6 
DoEvents 
Loop 
Call Aplicar_Transparencia(Me.hWnd, CByte(250)) 
------------------ 
Label1.Caption = "Centro" 
End If 
If Arriba.Label1.Caption = "Centro" Then 
Do While Me.Top < (Screen.Height - Height) \ 2 
Me.Top = Me.Top + 1 
Me.Left = Me.Left + 1 
Arriba.Top = Arriba.Top - 1 
Sleep 0.6 
DoEvents 
Loop 
Call Aplicar_Transparencia(Me.hWnd, CByte(250)) 
Call Aplicar_Transparencia(Arriba.hWnd, CByte(100)) 
Label1.Caption = "Centro" 
Arriba.Label1.Caption = "Arriba" 
End If 
If Derecha.Label1.Caption = "Centro" Then 
Do While Me.Top < (Screen.Height - Height) \ 2 
Me.Top = Me.Top + 1 
Me.Left = Me.Left + 1 
Derecha.Top = Derecha.Top - 1 
Derecha.Left = Derecha.Left + 1 
Sleep 0.6 
DoEvents 
Loop 
Call Aplicar_Transparencia(Me.hWnd, CByte(250)) 
Call Aplicar_Transparencia(Derecha.hWnd, CByte(100)) 
Label1.Caption = "Centro" 
Derecha.Label1.Caption = "Arriba" 
End If 
End Sub 
--------------- 
Y por ultimo al form BotonCerrar, como su nombre lo indica solo lo utilizo para cerrar el programa, 
ustedes lo hacen a gusto. 
El mío le coloque una imagen. Y el siguiente código. 
------------------------------------------------------------------- 
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhJo8BTyR3X-5UJ5aj8NhNBDoYal6l_Ij99kyoyYokMQQnogY4TVLkGoTlGmFijCO-XZKot3v_PJe8oQw_99-1PWjLBPavEiY3uYOeT1sOsBrd78WRnxDUqKhJuQS14zJGtjZgW9PalIK-A/s1600/Screenshot_7.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhJo8BTyR3X-5UJ5aj8NhNBDoYal6l_Ij99kyoyYokMQQnogY4TVLkGoTlGmFijCO-XZKot3v_PJe8oQw_99-1PWjLBPavEiY3uYOeT1sOsBrd78WRnxDUqKhJuQS14zJGtjZgW9PalIK-A/s1600/Screenshot_7.png" /></a> 
Private Sub Form_Load() 
Move Derecha.Left + Derecha.Width + 1000, Arriba.Top 
With BotonCerrar 
.Height = 375 
.Width = 375 
End With 
---------------------------------- 
Image1.Visible = False 
Image2.Visible = True 
End Sub 
Private Sub Image2_Click() 
Image1.Visible = True 
Dim i As Integer 
For i = 100 To 0 Step -1 
Call Aplicar_Transparencia(Derecha.hWnd, CByte(i)) 
Call Aplicar_Transparencia(Arriba.hWnd, CByte(i)) 
Call Aplicar_Transparencia(Izquierda.hWnd, CByte(i)) 
Sleep 50 
DoEvents 
Next i 
DoEvents 
Sleep 1000 
End 
End Sub 
----------------------------------- 
Terminamos. 
Saludos a todos. 
<a href="http://informatica-proibida.blogspot.com/2014/04/efecto-caida-libre-visual-basic-60.html#" id="flotante" style="-webkit-text-stroke-width: 0px; background-color: white; background-image: url(http://informatica-proibida.blogspot.com/); background-position: 50% 50%; background-repeat: no-repeat no-repeat; clear: both; color: black; font-family: 'helvetica neue', arial, sans-serif; font-size: small; font-style: normal; font-variant: normal; font-weight: normal; height: 360px; letter-spacing: normal; line-height: 20.799999237060547px; margin-top: -365px; orphans: auto; position: relative; text-align: left; text-decoration: none; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; width: 640px; word-spacing: 0px;"></a> 
<div id="aim23327554375511170614" style="-webkit-text-stroke-width: 0px; background-color: white; color: #333333; font-family: 'helvetica neue', arial, sans-serif; font-size: small; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 20.799999237060547px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;">
Saludos. cualquier duda que tengan comenten o deja un buen comentario en apoyo a mi trabajo 
No olviden visitar mi Web Oficial |<a href="http://no-mames.com/" style="background-color: white; color: #999999; font-family: Verdana, Geneva, sans-serif; font-size: 12px; line-height: 19.200000762939453px; text-decoration: none;">no-mames.com</a>| solo por apoyo ya que hay no hablo nada sobre programación hay es algo mas ligero y solo de pasatiempo así que espero tener su apoyo en mi humilde web y pues a un que sea me den un me gusta o algo a si bueno ya mucho bla bla bla  
Empezando con tutoriales super básicos apoyame con un me gusta si el post su de tu agrado</div><center><script async src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>

<ins class="adsbygoogle"
 style="display:inline-block;width:336px;height:280px"
 data-ad-client="ca-pub-6123383525339038"
 data-ad-slot="3276222169"></ins>
<script>
(adsbygoogle = window.adsbygoogle || []).push({});
</script></center>

Efecto Combinado para los Forms visual basic 6.0

Hola a todos. Empecemos Abrimos VB6, y creamos un nuevo proyecto. Voy a agregar 4 forms en total y 1 modulo. A los forms los ...

Efecto Caída Libre visual basic 6.0

<center>
<script async="" src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>

<ins class="adsbygoogle" data-ad-client="ca-pub-6123383525339038" data-ad-slot="3276222169" style="display: inline-block; height: 280px; width: 336px;"></ins>
<script>
(adsbygoogle = window.adsbygoogle || []).push({});
</script>
<script async="" src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>

<ins class="adsbygoogle" data-ad-client="ca-pub-6123383525339038" data-ad-slot="4728944563" style="display: inline-block; height: 60px; width: 468px;"></ins>
<script>
(adsbygoogle = window.adsbygoogle || []).push({});
</script></center>
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhsyjdA3niTATSEdJyJpCjsVa6OQj4MF06UKvIf-Li5PYbp4LeBMq8H34ZNLrVaJRi_62iwnkj1_4-QqCrzbI6Sn6bD_b0Kw4re_kjSQ5bHiuF8AOE8bgjPQXo22_B9liKz4dhX6P7oynee/s1600/avatar.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhsyjdA3niTATSEdJyJpCjsVa6OQj4MF06UKvIf-Li5PYbp4LeBMq8H34ZNLrVaJRi_62iwnkj1_4-QqCrzbI6Sn6bD_b0Kw4re_kjSQ5bHiuF8AOE8bgjPQXo22_B9liKz4dhX6P7oynee/s1600/avatar.jpg" /></a>Hola a todos. 
Vengo a traerles este efecto que se me ocurrió hoy y que quedo bastante bueno. 
Empecemos: 
Para este tuto hice uso del programa VB Shaped Form Creator, así que si no lo tienes consíganselo. 
Lo que hice fue crear una imagen de cada letra de "By Expermicid". Así: 
 
 
 
 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEghj8F9GQq07QQCUHN8WrAJ11Us2e_uk2dpTfdW7Q09NFptFG5oEPVk8pVlOMGheZ0GKPvl2O1vwuSp1kIbOuYtpmHqKjgCNMveIHuE5wvbUJ9u_N-bC3M-Uw-ujUKlhuTawpP7xE8FmTB9/s1600/Screenshot_2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="342" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEghj8F9GQq07QQCUHN8WrAJ11Us2e_uk2dpTfdW7Q09NFptFG5oEPVk8pVlOMGheZ0GKPvl2O1vwuSp1kIbOuYtpmHqKjgCNMveIHuE5wvbUJ9u_N-bC3M-Uw-ujUKlhuTawpP7xE8FmTB9/s1600/Screenshot_2.png" width="640" /></a></div>
Para la 'i' cree una sola imagen, no es necesario hacer dos. 
Ahora utilizando el VB Shaped creamos un form por cada letra y para esto son las imágenes, 
ayudándonos con ellas podemos obtener mucho más fácil las formas. 
Una vez hecho eso, abrimos VB6 y generamos un nuevo proyecto. 
Agregamos los form antes creados y uno más que llame Principal. 
Quedándonos en total 13 forms. 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgFY-8JHb9TjhktjtErM4uGE3eWts9UR5bxNUyVEgjukEzsR4YfyPJ2HrpJZhOlfZ5h8xeFL4ncTC8fmbsCKeActNolPS2hCOUmwloej1eolsIc77zrN0kVKyH2IqeEaxkJLJd1SxDI_0iN/s1600/Screenshot_3.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="318" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgFY-8JHb9TjhktjtErM4uGE3eWts9UR5bxNUyVEgjukEzsR4YfyPJ2HrpJZhOlfZ5h8xeFL4ncTC8fmbsCKeActNolPS2hCOUmwloej1eolsIc77zrN0kVKyH2IqeEaxkJLJd1SxDI_0iN/s1600/Screenshot_3.png" width="320" /></a></div>
Al código que te crea el VB Shaped le borre el del evento MouseDown de cada Form para que no 
se puedan mover con el mouse. 
Y les cambie el atributo BackColor por &H00FF0000&, que es un color azul. 
Bien ahora empecemos con el código. 
Al form Principal simplemente usando el evento Load lo posicionamos en el medio de la pantalla. 
------------------------------------ 
Private Sub Form_Load() 
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 
End Sub 
------------------------------------ 
Voy a tomar al form Emay como el de la cabecera (el que se ejecuta primero). 
Así que a los demás también solo lo que voy a utilizar por ahora va a ser el evento Load para 
posicionarlos. 
Form B: 
------------------------- 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
Move r.Left + 500, -2500 
End Sub 
-------------------------- 
Form c: 
-------------------------- 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
-------------------------- 
Move i.Left + i.Width - 60, -2500 
End Sub 
-------------------------- 
Form d: 
-------------------------- 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
Move i2.Left + i2.Width - 120, -2500 
End Sub 
-------------------------- 
Form emin: 
-------------------------- 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
Move p.Left + p.Width - 170, -2500 
End Sub 
-------------------------- 
Form i: 
-------------------------- 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
Move m.Left + m.Width - 200, -2500 
End Sub 
-------------------------- 
Form i2: 
-------------------------- 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
Move c.Left + c.Width - 200, -2500 
End Sub 
-------------------------- 
Form m: 
-------------------------- 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
Move r.Left + r.Width - 120, -2500 
End Sub 
-------------------------- 
Form p: 
-------------------------- 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
Move X.Left + X.Width - 200, -2500 
End Sub 
-------------------------- 
Form r: 
-------------------------- 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
Move emin.Left + emin.Width - 120, -2500 
End Sub 
-------------------------- 
Form x: 
-------------------------- 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
Move Emay.Left + Emay.Width - 70, -2500 
End Sub 
-------------------------- 
Form y: 
-------------------------- 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
Move B.Left + B.Width, -2500 
End Sub 
-------------------------- 
Las primeras 2 líneas en todos los casos las crea en VB Shaped, lo único que agregue yo fue la línea 
de Move para posicionarlas en su lugar correcto horizontalmente y en todas le puse un -2500 en 
altura para que no se vean en la pantalla. 
 
Ahora vemos con el form Emay. 
Primero que nada le agrego un Timer. 
Con un valor de Interval de 500. 
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhNfk73lEsGqJLIjd_JQc72MqPy6f7hqsoEvbj2gKG-xBGL6nE7rIKwuCt-ybkrJtL3EyzwlfB5svfP8T906x5sBUW-9psG2UwG2ok5gsOMtoHYvPhGHpnDCboS23bNi-ijeRbdc52qGUZY/s1600/Screenshot_4.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhNfk73lEsGqJLIjd_JQc72MqPy6f7hqsoEvbj2gKG-xBGL6nE7rIKwuCt-ybkrJtL3EyzwlfB5svfP8T906x5sBUW-9psG2UwG2ok5gsOMtoHYvPhGHpnDCboS23bNi-ijeRbdc52qGUZY/s1600/Screenshot_4.png" /></a>Bien, ahora declaramos la Api para la función Sleep: 
--------------------- 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 
--------------------- 
Ponemos esto en el evento Load: 
---------------------------------- 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
Move (Screen.Width - Width) \ 2 - 5000, -2500 
X.Show 
p.Show 
emin.Show 
r.Show 
m.Show 
i.Show 
c.Show 
i2.Show 
d.Show 
B.Show 
y.Show 
End Sub 
------------------------------------- 
Nuevamente las 2 primeras líneas las crea el VB Shaped, luego posicionamos el form y mostramos 
todos los demás. 
 
Ahora ponemos este Sub: 
----------------------------- 
Private Sub CaidaLibre(formulario As Form, altura As Long) 
Dim i As Integer 
Do While formulario.Top < altura 
formulario.Top = formulario.Top + 1 
DoEvents 
Sleep 0.5 
Loop 
i = 0 
Do While i < 2500 
formulario.Top = formulario.Top - 1 
i = i + 1 
DoEvents 
Sleep 0.5 
Loop 
i = 0 
Do While i < 2500 
formulario.Top = formulario.Top + 1 
i = i + 1 
DoEvents 
Sleep 0.5 
Loop 
--------------------------- 
End Sub 
-------------- 
Que es el que se va a encargar de hacer el efecto de Caída Libre. 
Se le pasan como parámetro un form y una altura limite. 
Y lo que hace es hacer 'caer' al form hasta la altura requerida y luego en los otros dos While hace 
un efecto de rebote. 
Y para finalizar usando el evento Timer del Timer: 
---------------------- 
<script async src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>

<ins class="adsbygoogle"
 style="display:inline-block;width:234px;height:60px"
 data-ad-client="ca-pub-6123383525339038"
 data-ad-slot="5218675366"></ins>
<script>
(adsbygoogle = window.adsbygoogle || []).push({});
</script> 
Private Sub Timer1_Timer() 
CaidaLibre Emay, (Screen.Height - Height) \ 2 
CaidaLibre X, (Screen.Height - Height) \ 2 
CaidaLibre p, (Screen.Height - Height) \ 2 
CaidaLibre emin, (Screen.Height - Height) \ 2 
CaidaLibre r, (Screen.Height - Height) \ 2 
CaidaLibre m, (Screen.Height - Height) \ 2 
CaidaLibre i, (Screen.Height - Height) \ 2 
CaidaLibre c, (Screen.Height - Height) \ 2 
CaidaLibre i2, (Screen.Height - Height) \ 2 
CaidaLibre d, (Screen.Height - Height) \ 2 
CaidaLibre B, r.Top - B.Width - 300 
CaidaLibre y, B.Top 
Sleep 1000 
Unload B 
Unload c 
Unload d 
Unload Emay 
Unload emin 
Unload i 
Unload i2 
Unload m 
Unload p 
Unload r 
Unload X 
Unload y 
Principal.Show 
End Sub 
------------------ 
Vamos a ir llamando al Sub anteriormente creado con todos los forms. 
Y luego cerrarlos y mostramos el Form Principal, que sería nuestro programa. 
Y terminamos. 
Verificamos que nuestro proyecto se ejecute con el form Emay. 
Para esto vamos a Proyecto > Propiedad de Proyecto, y en Objeto inicial elegimos el form Emay. 
Espero que les guste. 
Saludos. cualquier duda que tengan comenten o deja un buen comentario en apoyo a mi trabajo 
No olviden visitar mi Web Oficial |<a href="http://no-mames.com/" style="background-color: white; color: #999999; font-family: Verdana, Geneva, sans-serif; font-size: 12px; line-height: 19.200000762939453px; text-decoration: none;">no-mames.com</a>| solo por apoyo ya que hay no hablo nada sobre programación hay es algo mas ligero y solo de pasatiempo así que espero tener su apoyo en mi humilde web y pues a un que sea me den un me gusta o algo a si bueno ya mucho bla bla bla  
Empezando con tutoriales super básicos apoyame con un me gusta si el post su de tu agrado 
<center><script async src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>

<ins class="adsbygoogle"
 style="display:inline-block;width:336px;height:280px"
 data-ad-client="ca-pub-6123383525339038"
 data-ad-slot="3276222169"></ins>
<script>
(adsbygoogle = window.adsbygoogle || []).push({});
</script></center>

Efecto Caída Libre visual basic 6.0

Hola a todos. Vengo a traerles este efecto que se me ocurrió hoy y que quedo bastante bueno. Empecemos: Para este tuto hice uso ...