kendi sorumu kendim cevaplayım bari :
Biraz Araştırma, Biraz Örneklere Batıktan sonra ve Vb Kitabımdaki bilgilerle örneği yapabildim.
3 Adet Textbox, 2 Adet Commad Buton, 1 Adet CommonDialog ekleyin foruma. ve kodları kopyalayın.
Private Sub Command1_Click()
Text3.Text = Text1 * Text2
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
CommonDialog1.DialogTitle = "Raporu Kaydedeceğiniz Yeri Seçiniz"
CommonDialog1.Filter = "Yazı Dosyası (*.txt) | *.txt"
CommonDialog1.FileName = "Deneme1"
CommonDialog1.Action = 2
Open CommonDialog1.FileName For Output As #1
Print #1, "Birinci Sayı ve İkinci Sayının Çarpımı:"
Print #1, "Birinci Sayı", Text1.Text
Print #1, "İkinci Sayı", Text2.Text
Print #1, "Sonuç", Text3.Text
Close #1
End Sub
Private Sub Form_Load()
Command2.Enabled = False
End Sub