este es el mio, no es tan dificil, justamente queria lo mismo, y en el menu de propieades ponele en "moveable" false, asi nadie lo puede mover
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