' settitle.vb

Imports System
Imports System.Runtime.InteropServices

Class SetTitle
  <DllImport("kernel32.dll")> _
  Private Shared Function SetConsoleTitle _
    (ByVal lpConsoleTitle As String) As Boolean
  End Function

  Public Shared Sub Main()
    SetConsoleTitle("タイトル文字列を変更しました。")
    Console.ReadLine()
  End Sub
End Class

' コンパイル方法: vbc gettitle.vb