Dim yf(10) As New Form1 ‘yf adında bir dizi değişken tanımlandı
Dim i As Integer

Private Sub kaydet_Click()
Form2.Show ‘bu butona basıldığında form2 gösterilir…
End Sub

Private Sub MDIForm_Load()
i = 1
Form1.Caption = “belge” & Str(1) ‘form1 in başlığını değiştiriyor…
Form1.Show
End Sub

Private Sub yeni_Click()
i = i + 1
If i <= 10 Then
yf(i).Caption = “belge” & i ‘yeni butonuna basıldığında herseferinde yeni bir form açılır ve başlığıda rasyonel olarak artar
yf(i).Show
End If
End Sub
DAHA sonra form2 ye drive1,dir1,textbox ve ikitane command butonu ekleyin sonra koduna şunları yazın;
Private Sub Command1_Click()
Form1.RichTextBox1.SaveFile Dir1.Path + “/” + Text1.Text + “.doc”
‘Burda kaydet butonuna basıldığında seçmiş olduğunuz yordama girmiş olduğunuz isimde kayıt yapar

End Sub

Private Sub Command2_Click()
Form2.Visible = False
‘iptal tuşuna basıldığında form2 yi gizler
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1
’sürücü ve dosyanın bağlantıları yapılıyor..
End Sub