Visual Basic Programming Code Examples

Visual Basic > Code Snippets Code Examples

Check for admin rights for XP and 2000

Check for admin rights for XP and 2000 Private Declare Function IsNTAdmin Lib "advpack.dll" (ByVal dwReserved As Long, ByRef lpdwReserved As Long) As Long Private Sub Form_Load() Dim blnAdmin As Boolean blnAdmin = CBool(IsNTAdmin(ByVal 0&, ByVal 0&)) end sub

Use drag and drop in a application

Repoint an Access Link table using ADO-ADOX

Get strings on either side of special character.

Replacement for Sendkeys using a class containing API calls

Capture DOS screen output from a command line

Get a list of the system processes

Determining which item was clicked in a listview

Forward new outlook mail and appointments

Create a new directory

Copying fixed length strings

use logging in your applications

Turn the Screen Saver on or off