помогите перевести с v.b 6.0

Question

Dim dblx, dbly As Double, I, N, M, R As Long, S As Double 
Private Sub Command1_Click() 
M = 0 
pic1.Cls 
R = Val(txtR) 
N = Val(R \ txtN) 
pic1.Line (-R, R)-(R + 1, -(R + 1)) 
pic1.Circle (0, 0), R 
For I = 1 To N 
 If dblx ^ 2 + dbly ^ 2 <= R Then M = M + 1 
Next I 
txtS.Text = 4 * R ^ 2 * 2 * (M / N) 
pic1.Line (-(R + 1), 0)-(R + 1, 0) 
For I = -(R + 1) To R + 1 
pic1.Print I 
Next I 
pic1.Line (0, -(R + 1))-(0, R + 1) 
For I = -(R + 1) To R + 1 
pic1.PSet (0, I) 
pic1.Print I 
Next I 
End Sub

Ярослав Цевелёв · Accepted Answer

На какой язык, простите, - ASM, C, Английский, Французский, Испанский или Немецкий (нужное подчеркнуть)

Jackk · Answer

куда перевести? на какой язык?