• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Hang the Computer

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
• 2
• 3
• 4
• 5

(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