Программа, сохраняющая свой исходный код

Option Explicit
 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageW" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 
Private Const EM_LIMITTEXT      As Long = &HC5
Private Const WM_SETTEXT        As Long = &HC
 
Private Sub Form_Load()
    Dim s As String
    
    s = Space(1000000)
    SetLimit Text1, -1
    SetText Text1, s
    
    Debug.Print Len(Text1.Text)
    
End Sub
 
Private Sub SetText(txt As TextBox, value As String)
    SendMessage txt.hWnd, WM_SETTEXT, 0, ByVal StrPtr(value)
End Sub
Private Sub SetLimit(txt As TextBox, ByVal limit As Long)
    SendMessage txt.hWnd, EM_LIMITTEXT, limit, ByVal 0&
End Sub

Option Explicit
 
Dim i%, f As String
 
Private Sub cmdD_Click()
    Open "1.bmp" For Binary As #1
    For i = 1 To 54
        f = Chr(Choose(i, 66, 77, 230, 30, 4, 0, 0, 0, 0, 0, 54, 0, 0, 0, 40, _
               0, 0, 0, 44, 1, 0, 0, 44, 1, 0, 0, 1, 0, 24, 0, 0, 0, 0, 0, 176, 30, 4, _
               0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0))
            Put #1, i, f
    Next i
    Close 1
End Sub

Private Sub pic_Click()
    SavePicture pic.Picture, "00.txt"
End Sub