Depende la version de win2 bro, pero es muy facil

Hay varias formas, aqui te van 2
Con la API de windows (la dificl
)En un formulario agrega un boton (el name sera command1) y pega el sig. codigo
CODE
Private Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal dwReserved&)
Private Sub Command1_Click()
Dim i as integer
i = ExitWindowsEx(2, 0&) 'Reinicia el Sistema
End Sub
Y la facil (Creo que solo funciona para xp y basados en nt)
En un formulario agrega un boton (command1) y pon el sig. codigo
CODE
Private Sub Command1_Click()
Dim i As String
i = Shell("shutdown -r")
End Sub
Un saludo