Найти минимальное значение в массиве, переправив код

Public Class Form1
    Private lb As Label
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a(3, 4) As Integer
        Dim max As Integer
        Dim row As Integer = 0
        Dim col As Integer = 0
        Randomize()
        For i = 0 To 3
            For j = 0 To 4
                a(i, j) = Int(Rnd() * 100)+1
                If i = 0 And j = 0 Then
                    max = a(i, j)
                End If
                If a(i, j) > max Then
                    max = a(i, j)
                    row = i
                    col = j
                End If
                lb.Text &= a(i, j) & IIf(j < 4, ", ", vbNewLine)
            Next
        Next
        lb.Text &= "Максимальный элемент = " & max & vbNewLine & "Строка - " & row + 1 & ", столбец - " & col + 1
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lb = New Label With {.Location = New Point(10, 10), .Visible = True, .Text = "", .AutoSize = False, .Size = New Size(200, 200)}
        Me.Controls.Add(lb)
    End Sub
End Class

Public Class Form1
    Private lb As Label
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a(3, 4) As Integer
        Dim min As Integer
        Dim row As Integer = 0
        Dim col As Integer = 0
        Randomize()
        For i = 0 To 3
            For j = 0 To 4
                a(i, j) = Int(Rnd() * 100)+1
                If i = 0 And j = 0 Then
                    min= a(i, j)
                End If
                If a(i, j) < minThen
                    min= a(i, j)
                    row = i
                    col = j
                End If
                lb.Text &= a(i, j) & IIf(j < 4, ", ", vbNewLine)
            Next
        Next
        lb.Text &= "Минимальный элемент = " & min & vbNewLine & "Строка - " & row + 1 & ", столбец - " & col + 1
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lb = New Label With {.Location = New Point(10, 10), .Visible = True, .Text = "", .AutoSize = False, .Size = New Size(200, 200)}
        Me.Controls.Add(lb)
    End Sub
End Class

dim max as integer
dim min as integer
dim s as integer
dim x(3,4) as integer
 
max=x(0,0)
min=x(0,0)
 
for i as integer=0 to 3
   for j as integer=0 to 4
     if x(i,j)>max then max=x(i,j)
next
next
 
for i as integer=0 to 3
   for j as integer=0 to 4
     if x(i,j)<min then min=x(i,j)
next
next
 
s=min+max

 sub aaa
 Dim max As Integer
        Dim min As Integer
        Dim s As Integer
        Dim x(3, 4) As Integer
        Dim i, j As Integer
        Dim a, b As Integer
 
        Randomize()
        For i = 0 To 3
            For j = 0 To 4
                x(i, j) = Int((100 - 0 + 1) * Rnd() + 0)  ' хотя тут наверное можно и просто Int(Rnd()*100), тк рандом выдает значения в промежутке [0;1]
            Next
        Next
 
 
 
        max = x(0, 0)
        min = x(0, 0)
 
        For i = 0 To 3
            For j = 0 To 4
                If x(i, j) > max Then max = x(i, j)
                If x(i, j) < min Then min = x(i, j)
            Next
        Next
 
 
        For i = 0 To 3
            For j = 0 To 4
                If x(i, j) = max Then
                    a = i
                    b = j
                End If
            Next
        Next
        s = min + max
 
        MsgBox("Максимальный элемент находиться по адресу:  " & a & " / " & b & "  Минимум =  " & min & "  Сумма= " & s)
    End Sub