![[Resim: components.jpg]](http://img193.imageshack.us/img193/8599/components.jpg)
bir düğme zaten yollarıda tabloda
Private Sub komut1_Click()
Dim dosyayolu As String
dosyayolu = me.metinkutusu
If isimayır(dosyayolu) = True Then
Dwgizleme.DwgFileName = dosyayolu
Dwgizleme.Visible = True
Dwgizleme.BackColor = RGB(0, 0, 0)
End If
End Sub
________________________________________
Public Function isimayır(isim) As Boolean
If Left(isim, 4) = " " Then
isim = False
Else
If Dir(isim) <> "" Then
isimayır = True
Else
isimayır = False
End If
End If
End Function