Power

Dim yf(10) As New Form1 ‘yf adinda bir dizi degisken tanimlandi
Dim i As Integer

Private Sub kaydet_Click()
Form2.Show ‘bu butona basildiginda form2 gösterilir…
End Sub

Private Sub MDIForm_Load()
i = 1
Form1.Caption = “belge” & Str(1) ‘form1 in basligini degistiriyor…
Form1.Show
End Sub

Private Sub yeni_Click()
i = i + 1
If i <= 10 Then
yf(i).Caption = “belge” & i ‘yeni butonuna basildiginda herseferinde yeni bir form açilir ve basligida rasyonel olarak artar
yf(i).Show
End If
End Sub
DAHA sonra form2 ye drive1,dir1,textbox ve ikitane command butonu ekleyin sonra koduna sunlari yazin;
Private Sub Command1_Click()
Form1.RichTextBox1.SaveFile Dir1.Path + “/” + Text1.Text + “.doc”
‘Burda kaydet butonuna basildiginda seçmis oldugunuz yordama girmis oldugunuz isimde kayit yapar

End Sub

Private Sub Command2_Click()
Form2.Visible = False
‘iptal tusuna basildiginda form2 yi gizler
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1
’sürücü ve dosyanin baglantilari yapiliyor..
End Sub