vb.net实现sub Main不同参数的调用

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim args = My.'
        If args.Count = 0 Then
            MessageBox.Show("OK")
            End
        End If

        Dim arg = args.First()
        If arg = "-m" Then
            Me.Show()
        ElseIf arg = "-k" Then
            Fun()
            End
        End If
    End Sub

    Sub Fun()
        MessageBox.Show("Hello World!")
    End Sub