Hang the Computer
Hang the Computer
API Declarations
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Rate Hang the Computer
(1(1 Vote))
Timer1.Interval = 8000
s = CreateRoundRectRgn(30, 30, 70, 70, Me.Width - 5, Me.Height - 5)
Call SetWindowRgn(Me.hwnd, s, True)
End Sub
Private Sub Timer1_Timer()
CreateForm
a = Screen.Height
b = Rnd() * a
c = Screen.Height
d = Rnd() * c
Me.Move b, d
End Sub
'add a module andplace this code in it
Dim frm As Form1
Public Sub CreateForm()
Set frm = New Form1
frm.Show
End Sub
Hang the Computer Comments
No comments yet — be the first to post one!
Post a Comment