توضیح در مورد این کد

[ma.andishe]

با سلام وخسته نباشید از دوستان خواهشن در مورد کد زیر 1 توضیح و این که این کد چه چیزی رو بر میگردونه بگن ممنون میشم

********************************************
Private Sub grid_1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim r As Integer
Dim c As Integer
r = GetRowClicked(grid_1, y)
c = GetColClicked(grid_1, x)
If Button = vbRightButton And r <> -1 Then
grid_1.RowSel r
form_1.Move form_2.Left + grid_1.Left + x, form_2.Top + Holder2.Top + grid_1.Top + y
form_1.Show 1
End If
End Sub