Informatica-prohibida: form

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

Añadir un GIF en un form

Añadir un GIF en un form

Hola a todos. Hoy les quiero dejar una forma fácil de poder poner un gif en un form. Primero nos descargamos la Ocx llamada MARCH...