Readme.txtを表示するには(表示専用にするには)

テキストボックスを表示専用（読み込み専用）にしてみます。
キーワードは「EM_SETREADONLY」メッセージです。
EM_SETREADONLYメッセージはテキストボックスを表示専用属性にしてくれます。
あとは背景色を変更してあるだけです。
テキストボックスなので、他のテキストボックスのメッセージなども使えますし
スクロールバーやキャレット・コピーなどもできます。

実行時の様子


'指定のウィンドウにメッセージを送る
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" _
    (ByVal hWnd As Long, ByVal MSG As Long, _
    ByVal wParam As Long, ByVal lParam As Long) As Long
'テキストボックスのメッセージ
Private Const EM_SETREADONLY = &HCF             'テキストボックスを編集できないように設定する


Private Sub Command1_Click()
    End
End Sub


Private Sub Form_Load()
    Dim txt, temp
    
    '読み込み専用とする
    Call SendMessage(Me.Text1.hWnd, EM_SETREADONLY, 0, 0)
    
    'Readme.txtを読み込んで表示
    Open "Readme.txt" For Input As #1
        Do While Not EOF(1)
            Line Input #1, temp
            If Not (EOF(1)) Then txt = txt & vbCrLf
            txt = txt & temp
        Loop
    Close
    Me.Text1.Text = txt
End Sub

ダウンロード