Como impedir que seu aplicativo seja executado duas vezes ao mesmo tempo

Para impedir que seu aplicativo tenha duas execuções ao mesmo tempo, basta adicionar o código abaixo no evento Load do formulário de inicialização:

Dim i As Integer = 0
For Each processo As Process In Process.GetProcesses()
      If processo.ProcessName = "Nome do seu aplicativo" Then
            i += 1
      End If
Next processo
If i = 2 Then
      Application.Exit()
End If

O nome do seu aplicativo você obtém ou altera em Solution Explorer / My Project / Application / Assembly Name.

Simples, não?

CapsLock, NumLock ou ScrollLock estão ativados?

Para saber se as teclas CapsLock, NumLock ou ScrollLock estão ativadas utilize dos códigos abaixo:

Dim bln As Boolean

bln = My.Computer.Keyboard.CapsLock
bln = My.Computer.Keyboard.NumLock
bln = My.Computer.Keyboard.ScrollLock

Estes códigos retornaram True se a tecla correspondente estiver ativa e False se não estiver ativada.

Simples, não?

Como abrir um documento de Microsoft Excel

Para abrir um documento do Microsoft Excel você precisa adicionar ao seu projeto a referência COM: Microsoft Excel 12.0 Object Library ou inferior.

Adicione antes da declaração da Class Form o seguinte código:

Imports Excel = Microsoft.Office.Interop.Excel

Para abrir um novo documento insira os seguintes comandos em um procedimento ou função:

Dim excelApp As New Excel.Application
Dim excelBook As Excel.Workbook = excelApp.Workbooks.Add
excelApp.Visible = True

Para abrir um documento Excel qualquer insira os seguintes comandos em um procedimento ou função:

Dim excelApp As New Excel.Application
Dim excelBook As Excel.Workbook = excelApp.Workbooks.Open("caminho/nomedodocumento.extensão")
excelApp.Visible = True

Simples, não?

Como abrir um documento do Microsoft Word

Para abrir um documento do Microsoft Word você precisa adicionar ao seu projeto a referência COM: Microsoft Word 12.0 Object Library ou inferior.

Adicione antes da declaração da Class Form o seguinte código:

Imports Word = Microsoft.Office.Interop.Word

Para abrir um novo documento insira os seguintes comandos em um procedimento ou função:

Dim docWord As New Word.Application

Dim docDoc As Word.Document = docWord.Documents.Add

docWord.Visible = True

Para abrir um documento word qualquer insira os seguintes comandos em um procedimento ou função:

Dim docWord As New Word.Application

Dim docDoc As Word.Document = docWord.Documents.Open("caminho/nomedodocumento.extensão")

docWord.Visible = True

Simples, não?