Informatica-prohibida: efecto

Efecto Rotación

<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/AVvXsEgcC5FUqHNNTzDeOco6pGfeUG6N3Z89CYAr5EKLEyozJVea_-P0eR6vk_wg0kwmwpWdA2KmUz-Kwcp5WGIePodmZvk3qq0-gmECtvvdUaF-bxkLy6w_qLX8ClxiWv6FcR6qyhxGHXzWWwWr/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/AVvXsEgcC5FUqHNNTzDeOco6pGfeUG6N3Z89CYAr5EKLEyozJVea_-P0eR6vk_wg0kwmwpWdA2KmUz-Kwcp5WGIePodmZvk3qq0-gmECtvvdUaF-bxkLy6w_qLX8ClxiWv6FcR6qyhxGHXzWWwWr/s1600/avatar.jpg" /></a></div>
Hola a todos. 
Les vengo a dejar este efecto de rotación. 
Como en el tuto anterior, también hice uso del VB Shaped Form Creator. 
Hice dos imágenes de Dos círculos de diámetros diferentes. 
 
 
 
 
 
 
 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgW3t_EW0Q73ZOoyTqsisEcpjJVUzFBM8PXGJ0u0WnfJ_ftpKpv29R-gP0dWj4FpoE3UgM-AIedxsOUaBwDIZPAhwS9G5XM9zg4JJXPOjuGjESHQjicqWiak6M_1jnyITIU5LVCKb74pe_L/s1600/Screenshot_17.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="249" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgW3t_EW0Q73ZOoyTqsisEcpjJVUzFBM8PXGJ0u0WnfJ_ftpKpv29R-gP0dWj4FpoE3UgM-AIedxsOUaBwDIZPAhwS9G5XM9zg4JJXPOjuGjESHQjicqWiak6M_1jnyITIU5LVCKb74pe_L/s1600/Screenshot_17.png" width="320" /></a></div>
Usando el VB Shaped cree Un Form con el Circulo Grande y 4 Forms con el chiquito. 
Una vez hecho eso abro VB6 y generamos un nuevo proyecto. 
Agregamos los 5 forms antes creados y un sexto form que llame Principal. 
A los anteriores 5 los llame: CirculoAb, CirculoAr, CirculoDe y CirculoIz (los chiquitos) y 
Presentación (al Grande). 
 
 
 
 
 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhGBhsYz01Xu9-MLvowkRqbT0RPP2DV3SYJFj8LuWkAPgJ4bMVTTXcZiUs9uOWGzBhuxz7QmKcGbf4QUeqKMJw5swIAhQn7R0ci0d86Z4HKSdlK59wdIjgBYHUDUivoJ0U-2NAkJZczeqSR/s1600/Screenshot_18.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="277" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhGBhsYz01Xu9-MLvowkRqbT0RPP2DV3SYJFj8LuWkAPgJ4bMVTTXcZiUs9uOWGzBhuxz7QmKcGbf4QUeqKMJw5swIAhQn7R0ci0d86Z4HKSdlK59wdIjgBYHUDUivoJ0U-2NAkJZczeqSR/s1600/Screenshot_18.png" width="320" /></a></div>
Además agregue un Modulo llamado Transparencia. 
Al cual le agregue este código para hacer transparente un form: 
 
 
 
 
 
 
 
 
 
 
 
 
--------------------- 
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 
--------------------- 
Yo le cambie el color de Fondo de todos los Forms por un negro. (Atributo BackColor igual a 
&H80000007&), ustedes pueden poner algunas imágenes o lo que deseen. 
En los códigos que crea el VB Shaped le borre el del evento MouseDown para que no se puedan 
mover con el Mouse. 
A los 4 forms chiquitos les agregue un Label, a los cuales llame Posición en todos los casos. 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh5UbQrO6KTXCWs2S2rihwJnUg6yPXAP70Q02DouJNpWBciY181fk28_vDsF8Ed091n75N-kzx_DkuvdN_7JW_f_ORqrEXRI4KiHlNHO-FBo8cFQ5Rat5xyJI0rzRoXU4b-kLZj35G3juOL/s1600/Screenshot_19.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/AVvXsEh5UbQrO6KTXCWs2S2rihwJnUg6yPXAP70Q02DouJNpWBciY181fk28_vDsF8Ed091n75N-kzx_DkuvdN_7JW_f_ORqrEXRI4KiHlNHO-FBo8cFQ5Rat5xyJI0rzRoXU4b-kLZj35G3juOL/s1600/Screenshot_19.png" /></a></div>
Ahora empezamos con el código. 
Al Form Principal solamente 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 
---------------- 
En el caso de los cuatro form Chiquitos. Usando el evento Load, posicionamos el form en el medio 
de la pantalla. Ocultamos los Label (Atributo Visible = False) y en el atributo Caption le ponemos la 
posición en que se encuentra. 
CirculoAr --> Caption = "Arriba" 
CirculoAb --> Caption = "Abajo" 
CirculoDe --> Caption = "Derecha" 
CirculoIz --> Caption = "Izquierda" 
Veamos como seria: 
Form CirculoAr: 
----------------- 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
----------------- 
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 
Posicion.Visible = False 
Posicion.Caption = "Arriba" 
End Sub 
Form CirculoAb: 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 
Posicion.Visible = False 
Posicion.Caption = "Abajo" 
End Sub 
Form CirculoDe: 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 
Posicion.Visible = False 
Posicion.Caption = "Derecha" 
End Sub 
Form CirculoIz: 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 
Posicion.Visible = False 
Posicion.Caption = "Izquierda" 
End Sub 
NOTA: Las dos primeras líneas las crea el VB Shaped. 
Ahora el form Presentación. 
Primero le agregamos un Timer. 
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjx5lWcM6LVDEI11FUkmk9KyZh-M1CU6xEgydwGnDzezd019B8RPywdJ87hUFVDtaaz1mXBjiY5X3Zlina-N4LAFuOrBRAxZ-Y-DroQeswdZKupDO2QV46Tok7MJ4qh1C2e4-8FvXH4fN38/s1600/Screenshot_20.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/AVvXsEjx5lWcM6LVDEI11FUkmk9KyZh-M1CU6xEgydwGnDzezd019B8RPywdJ87hUFVDtaaz1mXBjiY5X3Zlina-N4LAFuOrBRAxZ-Y-DroQeswdZKupDO2QV46Tok7MJ4qh1C2e4-8FvXH4fN38/s1600/Screenshot_20.png" /></a> 
Y le ponemos un 1000 en el atributo Interval. 
Bien. 
Agregamos la Api para la función Sleep 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 
Y definimos estas variables globales, que utilizaremos más adelante: 
Dim SeguirGirando As Boolean 
Dim arribaX As Integer, arribaY As Integer, abajoX As Integer, abajoY As 
Integer, derechaX As Integer, derechaY As Integer, izquierdaX As Integer, 
izquierdaY As Integer 
En el evento Load ponemos esto: 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 
Call Aplicar_Transparencia(Me.hWnd, CByte(0)) 
CirculoAb.Show 
CirculoAr.Show 
CirculoDe.Show 
CirculoIz.Show 
SeguirGirando = True 
End Sub 
Las primeras dos líneas las agrega el VB Shaped. 
Posicionamos el form en el medio de la pantalla. 
Le ponemos una transparencia = 0, es decir lo hago totalmente invisible. 
Muestro todos los forms chiquitos. 
Y le asigno a la variable booleana antes definida un valor igual a True. 
Vamos a agregar un Sub llamado Girar, que va a ser el encargado de producir el efecto. 
Private Sub Girar() 
Dim j As Integer 
j = 0 
Do While SeguirGirando 
If CirculoAr.Posicion.Caption = "Arriba" Then 
CirculoAr.Top = CirculoAr.Top + 1 
CirculoAr.Left = CirculoAr.Left + 1 
If (CirculoAr.Left = derechaX) And (CirculoAr.Top = derechaY) 
Then CirculoAr.Posicion.Caption = "Derecha" 
DoEvents 
End If 
If CirculoAr.Posicion.Caption = "Derecha" Then 
CirculoAr.Top = CirculoAr.Top + 1 
CirculoAr.Left = CirculoAr.Left - 1 
If (CirculoAr.Left = abajoX) And (CirculoAr.Top = abajoY) 
Then CirculoAr.Posicion.Caption = "Abajo" 
DoEvents 
End If 
If CirculoAr.Posicion.Caption = "Abajo" Then 
CirculoAr.Top = CirculoAr.Top - 1 
CirculoAr.Left = CirculoAr.Left - 1 
If (CirculoAr.Left = izquierdaX) And (CirculoAr.Top = 
izquierdaY) Then CirculoAr.Posicion.Caption = "Izquierda" 
DoEvents 
End If 
If CirculoAr.Posicion.Caption = "Izquierda" Then 
CirculoAr.Top = CirculoAr.Top - 1 
CirculoAr.Left = CirculoAr.Left + 1 
If (CirculoAr.Left = arribaX) And (CirculoAr.Top = arribaY) 
Then 
CirculoAr.Posicion.Caption = "Arriba" 
j = j + 1 
End If 
DoEvents 
End If 
If CirculoAb.Posicion.Caption = "Abajo" Then 
CirculoAb.Top = CirculoAb.Top - 1 
CirculoAb.Left = CirculoAb.Left - 1 
If (CirculoAb.Left = izquierdaX) And (CirculoAb.Top = 
izquierdaY) Then CirculoAb.Posicion.Caption = "Izquierda" 
DoEvents 
End If 
If CirculoAb.Posicion.Caption = "Izquierda" Then 
CirculoAb.Top = CirculoAb.Top - 1 
CirculoAb.Left = CirculoAb.Left + 1 
If (CirculoAb.Left = arribaX) And (CirculoAb.Top = arribaY) 
Then CirculoAb.Posicion.Caption = "Arriba" 
DoEvents 
End If 
If CirculoAb.Posicion.Caption = "Arriba" Then 
CirculoAb.Top = CirculoAb.Top + 1 
CirculoAb.Left = CirculoAb.Left + 1 
If (CirculoAb.Left = derechaX) And (CirculoAb.Top = derechaY) 
Then CirculoAb.Posicion.Caption = "Derecha" 
DoEvents 
End If 
If CirculoAb.Posicion.Caption = "Derecha" Then 
CirculoAb.Top = CirculoAb.Top + 1 
CirculoAb.Left = CirculoAb.Left - 1 
If (CirculoAb.Left = abajoX) And (CirculoAb.Top = abajoY) 
Then CirculoAb.Posicion.Caption = "Abajo" 
DoEvents 
End If 
If CirculoDe.Posicion.Caption = "Derecha" Then 
CirculoDe.Top = CirculoDe.Top + 1 
CirculoDe.Left = CirculoDe.Left - 1 
If (CirculoDe.Left = abajoX) And (CirculoDe.Top = abajoY) 
Then CirculoDe.Posicion.Caption = "Abajo" 
DoEvents 
End If 
If CirculoDe.Posicion.Caption = "Abajo" Then 
CirculoDe.Top = CirculoDe.Top - 1 
CirculoDe.Left = CirculoDe.Left - 1 
If (CirculoDe.Left = izquierdaX) And (CirculoDe.Top = 
izquierdaY) Then CirculoDe.Posicion.Caption = "Izquierda" 
DoEvents 
End If 
If CirculoDe.Posicion.Caption = "Izquierda" Then 
CirculoDe.Top = CirculoDe.Top - 1 
CirculoDe.Left = CirculoDe.Left + 1 
If (CirculoDe.Left = arribaX) And (CirculoDe.Top = arribaY) 
Then CirculoDe.Posicion.Caption = "Arriba" 
DoEvents 
End If 
If CirculoDe.Posicion.Caption = "Arriba" Then 
CirculoDe.Top = CirculoDe.Top + 1 
CirculoDe.Left = CirculoDe.Left + 1 
If (CirculoDe.Left = derechaX) And (CirculoDe.Top = derechaY) 
Then CirculoDe.Posicion.Caption = "Derecha" 
DoEvents 
End If 
If CirculoIz.Posicion.Caption = "Izquierda" Then 
CirculoIz.Top = CirculoIz.Top - 1 
CirculoIz.Left = CirculoIz.Left + 1 
If (CirculoIz.Left = arribaX) And (CirculoIz.Top = arribaY) 
Then CirculoIz.Posicion.Caption = "Arriba" 
DoEvents 
End If 
If CirculoIz.Posicion.Caption = "Arriba" Then 
CirculoIz.Top = CirculoIz.Top + 1 
CirculoIz.Left = CirculoIz.Left + 1 
If (CirculoIz.Left = derechaX) And (CirculoIz.Top = derechaY) 
Then CirculoIz.Posicion.Caption = "Derecha" 
DoEvents 
End If 
If CirculoIz.Posicion.Caption = "Derecha" Then 
CirculoIz.Top = CirculoIz.Top + 1 
CirculoIz.Left = CirculoIz.Left - 1 
If (CirculoIz.Left = abajoX) And (CirculoIz.Top = abajoY) 
Then CirculoIz.Posicion.Caption = "Abajo" 
DoEvents 
End If 
If CirculoIz.Posicion.Caption = "Abajo" Then 
CirculoIz.Top = CirculoIz.Top - 1 
CirculoIz.Left = CirculoIz.Left - 1 
If (CirculoIz.Left = izquierdaX) And (CirculoIz.Top = 
izquierdaY) Then CirculoIz.Posicion.Caption = "Izquierda" 
DoEvents 
End If 
Sleep 0.5 
If j = 2 Then SeguirGirando = False 
Loop 
End Sub 
Hago una breve explicación de cómo trabaja. 
Dependiendo de la palabra que contenga cada label de los form, les cambia los atributos Left y 
Top. Haciendo mover el circulo que se encuentra arriba hacia donde está el circulo de la derecha, 
el circulo de la derecha hacia el circulo de abajo, el circulo de abajo hacia el circulo de la izquierda 
y el circulo de la izquierda hacia el circulo de arriba. 
Una vez que llegan a su nueva posición, les cambio el atributo Caption por la posición nueva, 
recién llegada. 
Usando una variable local j de tipo Integer. Controlo que se hagan dos vueltas y luego hago que 
salga del bucle. 
Entendido esto sigamos con el código. 
Ahora vamos a hacer uso del evento Timer del Timer agregado. 
Private Sub Timer1_Timer() 
Dim i As Integer 
For i = 0 To 3000 
CirculoAr.Top = CirculoAr.Top - 1 
DoEvents 
Sleep 0.6 
Next i 
arribaX = CirculoAr.Left 
arribaY = CirculoAr.Top 
For i = 0 To 3000 
CirculoAb.Top = CirculoAb.Top + 1 
DoEvents 
Sleep 0.6 
Next i 
abajoX = CirculoAb.Left 
abajoY = CirculoAb.Top 
For i = 0 To 3000 
CirculoDe.Left = CirculoDe.Left + 1 
DoEvents 
Sleep 0.6 
Next i 
derechaX = CirculoDe.Left 
derechaY = CirculoDe.Top 
For i = 0 To 3000 
CirculoIz.Left = CirculoIz.Left - 1 
DoEvents 
Sleep 0.6 
Next i 
izquierdaX = CirculoIz.Left 
izquierdaY = CirculoIz.Top 
For i = 0 To 255 
Call Aplicar_Transparencia(Me.hWnd, CByte(i)) 
DoEvents 
Sleep 0.6 
Next i 
Girar 
Sleep 500 
Unload Me 
Unload CirculoAr 
Unload CirculoAb 
Unload CirculoDe 
Unload CirculoIz 
Principal.Show 
End Sub 
<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> 
Al principio aparecen los 4 forms chiquitos en el centro de la pantalla, usando la sentencia For 
llevo cada Circulo a su posición, uno por uno, y cuando los tengo posicionados guardo sus atributo 
Top y Left en las variables globales que definimos al principio, y que van a servir para tener la 
referencia de las ubicaciones principales. Luego hago que el form Presentación aparezca de a poco 
cambiando su transparencia. Llamamos al Sub Girar para que produzca el efecto y por últimos 
cerramos todos los forms y mostramos el Form Principal. 
Ustedes miren con más paciencia el código, y se darán cuenta de lo que hablo. 
Y ya hemos terminado. 
Verificamos que el proyecto se inicialice con el Form Presentación. 
Espero que les guste. 
Saludos. 
-------------- 
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 Rotación

Hola a todos. Les vengo a dejar este efecto de rotación. Como en el tuto anterior, también hice uso del VB Shaped Form Creator....

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

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 ...