Windows API

Private Sub Command1_Click() 'Flash the window title in the taskbar
bInvert = 1
FlashWindow Me.hwnd, bInvert
End Sub
 
Private Sub Command2_Click() 'Getting computer name and put it in text1
Text1.Text = GetComputerName(lpBuffer, 11000)
End Sub
 
Private Sub Timer1_Timer() 'Window on top Command Button
BringWindowToTop Me.hwnd
End Sub
 
Private Sub Command3_Click() 'Shutdown Dialog Command Button
ShutDown_DIALOG
End Sub
 
Private Sub Command4_Click() 'Quit Command Button
ExitProcess (0)
End Sub
 
------------------------------------------------------------------
Create a module and paste this code in it
------------------------------------------------------------------
 
Public Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SHShutDownDialog Lib "shell32" Alias "#60" (ByVal YourGuess As Long) As Long
Public Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
 
Function ShutDown_DIALOG()
ShutDown_DIALOG = SHShutDownDialog(0)
End Function