[Admiral]

Код:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WindowState = FormWindowState.Minimized
        Me.Text() = "123"
    End Sub

    Private Sub Button1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.GotFocus
        Me.Text() = ""
    End Sub

Хм.. Что б когда активным было и название было? Это уже не по простому.
Я бы взял за основу код проги для VB6 из этой статьи
Разработка окна в стиле Windows XP
Тут и стандартное окно подменяют своим, и название когда оно не свёрнуто есть.

P.S.

Код:

        Dim Some3Bytes As String
        Dim Some5Bytes As String
        FileOpen(1, "C:\Boot.ini", OpenMode.Binary)
        Some3Bytes = New String(" ", 3)
        Some5Bytes = New String(" ", 5)
        FileGet(1, Some3Bytes)
        FileGet(1, Some5Bytes, RecordNumber:=3)'читать начиная с 3го байта
        FileClose(1)

Кстати, при бинарном чтении текстовых файлов с более чем одной строчкой, в нём есть переходы каретки vbCrLf.