Работа с формами , текстами и картинками

Picture1.Picture = LoadResPicture(L + 100, vbResBitmap)

Private Sub Command1_Click()
    textstring = List1.text
    Form2.Show vbModal, Me
End Sub
 
Private Sub Form_Load()
    List1.AddItem ("text1")
    List1.AddItem ("text2")
    List1.AddItem ("text3")
End Sub

Private Sub Form_Load()
    Label1.Caption = textstring
    Dim s As String, z As String
    'Text1.MultiLine = True - óñòàíîâèòü â ñâîéñòâàõ ïðåêòà
    Select Case (textstring)
        Case "text2"
            Dim ff As Integer
            ff = FreeFile()
            'Open App.Path + "\0.txt" For Input As ff  ' папка текущего проекта
            Open "D:\0.txt" For Input As ff
            Do While Not EOF(ff)
                Input #ff, z
                s = s + z + vbCrLf
            Loop
            Close ff
        Case Else
        ' íè÷åãî íå âûáðàíî
    End Select
    Text1.Text = s
End Sub

Public textstring As String

Option Explicit
Private Sub Form_Load()
Dim J
For J = 1 To 10
Список1.AddItem "Вопрос № " & J
Next J
End Sub
 
Private Sub Комманда1_Click()
If Список1.ListIndex > 0 Then
Форма2.Tag = Список1.ListIndex
Форма2.Show
 End If
End Sub

Option Explicit
Private Sub Form_Activate()
Dim File As String, CF As String
Dim L As Byte
L = Val(Tag)
   Picture1.Picture = LoadResPicture(L + 100, vbResBitmap)
   Picture2.Picture = LoadResPicture(L + 200, vbResBitmap)
   File = App.Path & ":\" & L & ".txt"
   Open File For Binary As #1
      CF = Input(FileLen(File), 1)
   Close #1
Текст1.Text = CF
End Sub