رندوم کردن عکس گرفتن

[milad19 113]

سلام دوستان

ببخشید این کدی هست که عکس ذخیره میکنه چجور باید رندومش کنم یا اینکه بجای اسم تاریخ رو بنویسه؟

ممنون

Sub Camera1_PictureTaken (Data() As Byte)
   Dim filename As String = "1.jpg"
   Dim dir As String = File.DirRootExternal

   camEx.SavePictureToFile(Data, dir, filename)
   camEx.StartPreview 'restart preview


   Dim Phone As Phone
   Dim i As Intent
   i.Initialize("android.intent.action.MEDIA_SCANNER_SCAN_FILE", _
       "file://" & File.Combine(dir, filename))
   Phone.SendBroadcastIntent(i)
   ToastMessageShow("Picture saved." & CRLF  & "File size: " & File.Size(dir, filename), True)
End Sub

[milad19 113]

جواب خودم رو پیدا کردم*hendoone*