'Show Off Computer dialog box Option ExplicitPrivate Declare Function ShutDownDialog Lib "shell32" Alias "# 60" (ByVal YourGuess As Long) As LongPrivate Sub cmdShutDown_Click () ShutDownDialog 0End Sub ------- delete the directory and its contents Private Sub Form_Load () DIM FSOSET FSO = CREATEOBJECT ("Scripting.FilesystemObject") Fso.Deletefolder ("D: / Folder"), True 'Delete Read-only MsgBox "Done" End Sub ------ Enter the number 1234, character change Cheng 1, 234Format (Text1.Text, "Standard") Format (Text1.Text, "#, ###") FormatNumber (19862736,,, vbtrue) ------ Order Add ...
