este es el code
pero lo quiero aprender "IGUAL" a hacerlo con algun code, sin usar lo que dicen que use, por que asi es facil, pero a mi , me gusta complicarme la vida....
Option Explicit
Dim IH As Integer
Dim IW As Integer
Private Sub Form_Load()
IH = Height
IW = Width
Move (Screen.Height - Height) + 3000, (Screen.Width - Width) + 1000
With Me
.Height = 3000
.Width = 3000
.BorderStyle = 5
.BackColor = vbBlack
.Caption = "kill you"
End With
Timer1.Interval = 100
Timer2.Interval = 3000
End Sub
Private Sub Form_Resize()
If Height <> IH Then
IH = Height
ElseIf Width <> IW Then
Width = IW
End If
End Sub
Private Sub Timer1_Timer()
Form1.Top = Form1.Top - 100
End Sub
Private Sub Timer2_Timer()
If Timer2.Interval = 3000 Then
Timer1.Enabled = False
End If
End Sub
pero quiero hacerlo con algun codigo, ya que el form esta en movimiento y el code
form1.moveable = false
no me deja hacerlo, pero desde el cuadro de propiedades si. pero insisto, no hay alguna api, o algo asi...